【delphi开源代码栏目提醒】:本文主要为网学会员提供corplistmd.pas,希望对需要corplistmd.pas网友有所帮助,学习一下!
unit corplistmd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ComCtrls, DBClient,corplist_unit,
corplistinfo_unit;
type
Tcorplistmdfrm = class(TForm)
corplistmd_dbg1: TDBGrid;
corplistmd_ds1: TDataSource;
Detail_Del: TButton;
Main_Mod: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Find_Corplist: TButton;
Edit1: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Main_Del: TButton;
Detail_Mod: TButton;
Label10: TLabel;
Label11: TLabel;
corplistmd_cds1: TClientDataSet;
UpDown1: TUpDown;
procedure Find_CorplistClick(Sender: TObject);
procedure corplistmd_dbg1CellClick(Column: TColumn);
procedure Detail_DelClick(Sender: TObject);
procedure Main_DelClick(Sender: TObject);
procedure Main_ModClick(Sender: TObject);
procedure Detail_ModClick(Sender: TObject);
private
corplist:Tcorplist;
corplistinfo:Tcorplistinfo;
{ Private declarations }
public
{ Public declarations }
end;
var
corplistmdfrm: Tcorplistmdfrm;
implementation
{$R *.dfm}
procedure Tcorplistmdfrm.Find_CorplistClick(Sender: TObject);
begin
//实例化类
corplist:=Tcorplist.create ;
corplistinfo:=Tcorplistinfo.create ;
//查询时根据厂单编号来查询
if edit1.Text='' then
begin
showmessage('请输入厂单编号!');
exit;
end;
//判断厂单编号位数是否正确
if length(edit1.Text)<>12 then
begin
showmessage('对不起,厂单编号位数不对!');
exit;
end;
//查询该厂单信息是否存在
if corplist.CorpListRec(edit1.Text)=false then
begin
showmessage('对不起,该厂单信息不存在!');
exit;
end;
//如果查询的信息存在,则将厂单主信息在文本框中显示出来
datetimepicker1.DateTime:=strtodate(corplist.GetCorpListDate(edit1.Text) ) ;
datetimepicker2.DateTime:=strtodate(corplist.GetGiveDate(edit1.Text) );
edit3.Text:=corplist.GetOperator (edit1.Text);
edit4.Text:=corplist.GetCorpId(edit1.Text);
//通过数据列表将厂单明细信息显示出来
corplistmd_cds1.Data:=corplistinfo.GetAllRecs(edit1.Text);
//释放实例
corplist.Free;
corplistinfo.Free;
end;
procedure Tcorplistmdfrm.corplistmd_dbg1CellClick(Column: TColumn);
begin
//单击数据列表时将对应记录的数据项用文本框显示出来
edit6.Text:=corplistmd_dbg1.Fields[2].AsString ;
edit7.Text:=corplistmd_dbg1.Fields[3].AsString ;
edit8.Text:=corplistmd_dbg1.Fields[4].AsString ;
Label11.Caption:= corplistmd_dbg1.Fields[0].AsString ;
end;
procedure Tcorplistmdfrm.Detail_DelClick(Sender: TObject);
begin
//实例化类
corplistinfo:=Tcorplistinfo.create ;
if application.MessageBox('确实要删除吗?','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//根据厂单编号贺商品编号确定删除对象
if (edit1.Text='') or (edit6.Text='') then
begin
showmessage('请输入删除记录的厂单编号和商品编号!');
exit;
end;
//查询要删除的明细信息是否存在,如果不存在,中止程序
if corplistinfo.CorpListInfoRec(edit1.Text,edit6.Text)=false then
begin
showmessage('该明细信息不存在,删除失败!');
exit;
end;
//对厂单明细表执行删除操作
corplistinfo.CorpListInfoDel(edit1.Text,edit6.Text);
showmessage('删除成功!');
//更新经过删除后的数据信息
corplistmd_cds1.Data :=corplistinfo.GetAllRecs(edit1.Text);
//明细信息删除后,对应的文本框信息也应清除掉
edit6.Text:='';edit7.Text:='';
edit8.Text:='';label11.Caption:='无';
end;
//释放实例
corplistinfo.Free;
end;
procedure Tcorplistmdfrm.Main_DelClick(Sender: TObject);
begin
//实例化类
corplist:=Tcorplist.create ;
corplistinfo:=Tcorplistinfo.create ;
if application.MessageBox('确实要删除吗?','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
// 根据厂单编号确定删除对象
if edit1.Text='' then
begin
showmessage('请输入厂单编号来确定删除对象!');
exit;
end;
//通过查询确定要删除的记录是否存在来确定删除是否成功
if corplist.CorpListRec(edit1.Text)=false then
begin
showmessage('删除记录不存在,删除失败!');
exit;
end;
//删除明细表中有关该厂单的明细信息
corplistinfo.CorpListInfoDel1(edit1.Text );
//删除信息主表中的厂单信息
corplist.CorpListDel(edit1.Text );
showmessage('删除成功!');
//清除以前的记录信息
edit1.Text:='';edit3.Text:='';edit4.Text:='';edit6.Text:='';
edit7.Text:='';edit8.Text:='';label11.Caption:='无';
end;
//释放实例
corplist.Free;
corplistinfo.Free;
end;
procedure Tcorplistmdfrm.Main_ModClick(Sender: TObject);
var
t1,t2,modsql:string;
begin
//实例化类
corplist:=Tcorplist.create ;
if application.MessageBox('确实要修改吗?','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//根据厂单编号确定修改信息
if edit1.Text='' then
begin
showmessage('请输入要修改主信息的厂单编号!');
exit;
end;
//通过查看厂单编号是否存在判断修改是否成功
if corplist.CorpListRec(edit1.Text)=false then
begin
showmessage('该厂单编号不存在,修改主信息失败!');
exit;
end;
//时间类型与字符窜类型相互转换
t1:=datetimetostr(datetimepicker1.DateTime);
t2:=datetimetostr(datetimepicker2.DateTime);
//对信息主表进行修改操作
modsql:='update CORPLIST set CORPLISTDATE='''+t1+''','
+'operator='''+edit3.Text+''',CORPID='''+edit4.Text+''','
+'GIVEDATE='''+t2+''' where CORPLISTID='''+edit1.Text+'''';
corplist.CorpListUpdate(modsql);
showmessage('修改操作完成!');
end;
//释放实例
corplist.Free;
end;
procedure Tcorplistmdfrm.Detail_ModClick(Sender: TObject);
var
modsql:string;
begin
//实例化类
corplistinfo:=Tcorplistinfo.create ;
if application.MessageBox('确实要修改吗?','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//查询判断要修改的明细信息是否存在
if corplistinfo.CorpListInfoRec1(label1.Caption)=false then
begin
showmessage('该记录号的明细信息不存在!');
exit;
end;
//修改明细表中的明细信息
modsql:='update CORPLISTINFO set CORPLISTID='''+edit1.Text+''','
+'COMID='''+edit6.Text+''',COMNUM='''+edit7.Text+''',MONEY='''+edit8.Text+''','
+' where RECORDNO='''+label11.Caption+'''';
corplistinfo.CorpListInfoUpdate(modsql);
showmessage('修改明细成功!');
//对修改后的信息进行更新
corplistmd_cds1.Data:=corplistinfo.GetAllRecs(edit1.Text);
end;
//释放实例
corplistinfo.Free;
end;
end.
上一篇:
corplistinfo_unit.pas
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值