|
2、表单systen
（1）、表单的“caption”为“基本信息”，“windowtype”为1-模式。
（2）、建立标签“label1~label5”、文本框“text1~text5”和命令按钮“command1”。
（3）、右击表单选择“数据环境”（图6-1）。
（4）、填加表systen.dbf。（图6-2）
（5）、text1~text5的“controlsource”分别选择systen.fzr、systen.jhy、systen.cly、systen.bgy、systen.mima。
（6）、label1~label5的caption为：负责人、计划员、材料员、保管员、密码。
（7）、command1.cilck为：thisform.release。
（8）、text5的“inputmask”为：“XXXXXX”，“passwordchar”为：“*”。
操作说明：此表单让你修改一些基本数据，在材料入库时这些人的名字自动填加，在这里可以修改密码。退出表单修改自动保存。
3、表单rkd（入库单）
（1）、我们用一些标签和线条建立（如图6-3）表单rkd，你可以根据自己单位的情况设计。其“titlebar”为：0-关闭。
（2）、建立17个文本框（由于我在设计时进行过修改，删掉了一些文本框，所以现在不连续），其“backstyle”为：0-透明、“bordercolor”为：0-无。其“controlsource”分别为：text9为bgy1，text12为fzr1，text17为cly1，其它的均与其name相同（例：text1为text1...）。
（3）、组合框combo2，“bordercolor”为：0-无，“controlsource”为cbo1，“rowsource”为：“钢材,管件,配件,工器具,量具,杂品,消耗品,油料,劳保,阀门”，“rowsourcetype”为：1-值。
（4）、命令按钮command1（确定）的click过程为：
tis=messagebox("保存入库单？",4+64,"提示窗口")
if
tis=6
if !used("main")
use main
else
sele
main
endif
APPEND BLANK
repl lb with
cbo1
repl rq with date()
repl pzbh with
text4
repl gcmc with text5
repl yt with
text6
repl lh with text13
repl qcmc with
text19
repl ggxh with text20
repl dw with
text7
repl rksl with text8
repl dj with
text10
repl rkje with text11
repl jhy
with text23
repl bgy with bgy1
repl
fzr with fzr1
repl llr with
cly1
use
text20=""
text13=""
text4=""
text8=0.00
text10=0.00
text11=0.00
text1=year(date())
text2=month(date())
text3=day(date())
thisform.combo2.setfocus
thisform.refresh
endif
（5）、命令按钮command2（退出）的click过程：
use
thisform.release
（6）、表单form1的init过程：
public
text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,;
text19,text20,text23,cbo1,text9,text13
text5=""
text6=""
text7=""
text13=""
text17=""
text19=""
text20=""
text23=""
text12=""
text9=""
text4=""
text8=0.00
text10=0.00
text11=0.00
text1=year(date())
text2=month(date())
text3=day(date())
cbo1=""
thisform.combo2.setfocus
（7）、表单form1的destroy过程：
release
text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,;
text19,text20,text23,cbo1,text9,text13
操作说明：根据公司的出库单逐项填写，器材类别我是根据我们车间的实际分的，你可以修改，填完后按确定按钮，将提示你是否保存，按退出按钮关闭表单。
|