文件名称：Delphi 输入窗口，用户界面源码.rar
文件大小：12KB
文件格式：RAR
更新时间：2022-07-30 11:59:49
Delphi源码-界面编程
Delphi 输入窗口，用户界面源码，只是一个窗体的设计实例，供用户向数据库中输入信息的一个窗口界面的源码，面向Delphi新手朋友。下面是相关代码： if EditIsNull = False then begin Try Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\gszt',True); Reg.WriteString('公司代码',Trim(gsdm.Text)); Reg.WriteString('公司名称',Trim(gsmc.Text)); Reg.WriteString('负责人',Trim(fzr.Text)); Reg.WriteString('统一编号',Trim(tybh.Text)); Reg.WriteString('税籍编号',Trim(sjbh.Text)); Reg.WriteString('法人代码',Trim(frdm.Text)); Reg.WriteString('电话号码',Trim(dhhm.Text)); Reg.WriteString('传真',Trim(cz.Text)); Reg.WriteString('国家',Trim(gj.Text)); Reg.WriteString('省份',Trim(sf.Text)); Reg.WriteString('市/镇/乡',Trim(sx.Text)); Reg.WriteString('邮政编码',Trim(yzbm.Text)); Reg.WriteString('电子邮件',Trim(dzyj.Text)); Reg.WriteString('网址',Trim(wz.Text)); EditClear; Application.MessageBox('保存成功.','提示',64); Finally Reg.Free; End; end;
【文件预览】：
srcfans.com
----输入窗口()
--------Project2.dsk(5KB)
--------Unit1.dfm(63KB)
--------Unit1.ddp(51B)
--------Project2.dof(2KB)
--------Project2.res(876B)
--------Unit1.pas(3KB)
--------Project2.cfg(434B)
--------Project2.dpr(188B)
--------Unit1.dcu(8KB)