计算机毕业设计水费管理功能介绍：
【新单据】清空所有信息，生成新的单据，供用户使用。
【收费】 保存刚刚录入的单据信息。
【删除】 删除选中的单据信息，或者输入错误的信息。
【报表】 将所有的单据信息以报表的模式，导出到Excel,供用户使用。
【取消】 关闭当前窗体，回到主界面。
|
以下是引用片段：
procedure Tfrmsf.SpeedButton1Click(Sender: TObject);
//向公用列表窗体frmList传递要显示的列表信息以及要返回到当前窗体中的那个控件上
begin
frmlist.Caption:= '商户信息列表';
frmlist.LabHide.Caption:='frmsf.Edit1';
frmlist.ShowModal ;
end;
procedure Tfrmsf.SpeedButton2Click(Sender: TObject);
//向公用列表窗体frmList传递要显示的列表信息以及要返回到当前窗体中的那个控件上
begin
frmlist.Caption:= '人员信息列表';
frmlist.LabHide.Caption:='frmsf.Edit3';
frmlist.ShowModal ;
end;
procedure Tfrmsf.SpeedButtonAddClick(Sender: TObject);
//1。将水费数据库表中的内容显示在列表中
//2。将窗体上控件的内容清空,并按照相应的格式显示
begin
self.ADODataSet1.Close;
self.ADODataSet1.Connection:=frmmain.ADOConnection1;
self.ADODataSet1.CommandText:='SELECT sf.sfdm AS 水费代码,'+
'sh.gsmc AS 商户名称, sf.sfqssj AS 收费起始时间, sf.sfzzsj AS 收费终止时间,'+
' sf.sl AS 用量, sf.dj AS 单价, sf.zje AS 总金额, yg.xm AS 收费人员, '+
' sf.jlsj AS 记录时间 FROM (sf INNER JOIN sh ON sf.shdm = sh.shdm) INNER JOIN yg ON sf.ygdm = yg.ygdm order by sf.jlsj desc';
self.ADODataSet1.Active:=true;
self.DataSource1.DataSet:=self.ADODataSet1;
self.DBGrid1.DataSource:=self.DataSource1;
self.Edit2.Text:=inttostr(ShowMaxRecord);
self.Edit1.Text:='';
self.Edit1.Tag:=-100;
self.DateTimePicker1.Date:=date;
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第11页为计算机毕业论文查询统计功能介绍......