发布时间 : 星期四 文章delphi制作销售管理软件实验报告-《巧克力销售管理系统》 - 图文更新完毕开始阅读68e2aac5aa00b52acfc7ca2a
图3.2 供货商表数据 4.客户表（x_customers） 图4.1 客户表相关字段 图4.2 客户表数据 5.职工表（x_employees） 图5.1 职工表相关字段 图5.2 职工表数据
6.销售订单表（x_Orders） 图6.1 销售订单表相关字段 图6.2 销售订单数据 5.系统界面及代码 5.1 登入介面 登入介面添加了一个adoquery和 adoconnection，有三个按钮，一个确定键，输入用户名和密码将进入到下一个界面，登入界面消失，一个退出键，一个注册键，点击弹出用户注册界面。 登入[确定]按钮代码： procedure TForm1.Button1Click(Sender: TObject); var s1,s2:string; begin adoquery1.close; adoquery1.sql.text:='select * from yonghu where name=:s1 and password=:s2'; adoquery1.parameters.parambyname('s1').value:=trim(edit1.Text); adoquery1.parameters.parambyname('s2').value:=trim(edit2.Text);
adoquery1.open; if adoquery1.recordcount>0 then begin form2.show; form1.Hide; end else showmessage('用户名或密码输入错误'); Form2.StatusBar1.Panels[0].Text:='用户名： '+Adoquery1.fields[0].AsString; //此处取出登入用户名，用于操作界面显示“登入用户”。 end; 5.2 注册界面 注册界面放置了用户的一些属性，和[提交]，[返回]，[检查用户名是否可用]按钮，用户先填好用户名，点击[检查用户名是否可用]用来查看用户名是否已经注册，若注册则不能使用该用户名，接下来填密码，使用了*来代替，防止被偷看等意外，密码要求重复输入，若两次密码输入不同，则会提示。 填好相关属性后，点击提交，用户的属性会录入到后台的“yonghu”表中。点击返回退出注册界面，回到登入介面再登入软件。 [检查用户名是否可用]按钮代码： procedure TForm3.Button2Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Text:='select * from yonghu where name=:s'; adoquery1.Parameters.ParamByName('s').Value:=trim(edit1.Text);
adoquery1.Open; if adoquery1.RecordCount>0 then begin button1.Enabled := false ; showmessage('该用户名已存在！请重新输入'); End else begin showmessage('恭喜！该用户名可用') ; button1.Enabled := true ; end; end; [提交]按钮代码： procedure TForm3.Button1Click(Sender: TObject); begin adoquery1.Close; adoquery1.sql.Text:='insert into yonghu values (:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8)'; if (edit1.text='')or(edit2.Text='') then begin showmessage('用户名或密码不能为空!') ; button1.Enabled := false ; end Else begin button1.Enabled := true; if edit2.Text<>edit3.Text then showmessage('两次密码输入不同，请重新输入!') Else adoquery1.Parameters.ParamByName('s1').Value:=trim(edit1.Text); adoquery1.Parameters.ParamByName('s2').Value:=trim(edit2.Text); adoquery1.Parameters.ParamByName('s3').Value:=trim(edit4.Text); adoquery1.Parameters.ParamByName('s4').Value:=trim(edit5.Text); if radiobutton1.checked=true then adoquery1.Parameters.ParamByName('s5').Value:=trim(radiobutton1.Caption) Else adoquery1.Parameters.ParamByName('s5').Value:=trim(radiobutton2.Caption);