【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供MC_GZOldList.pas参考,解决您在MC_GZOldList.pas学习中工作中的难题,参考学习。
unit MC_GZOldList;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables, ComCtrls, Buttons;
type
TGZOldList = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Query1: TQuery;
DataSource1: TDataSource;
Query1BDEDesigner: TIntegerField;
Query1BDEDesigner2: TDateTimeField;
Query1BDEDesigner3: TDateTimeField;
Query1BDEDesigner4: TStringField;
Query1BDEDesigner5: TStringField;
Query1BDEDesigner6: TStringField;
Query1BDEDesigner7: TFloatField;
Query1BDEDesigner8: TStringField;
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
DateTimePicker2: TDateTimePicker;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Label3: TLabel;
SpeedButton1: TSpeedButton;
BitBtn3: TBitBtn;
GroupBox2: TGroupBox;
DBGrid2: TDBGrid;
Query2: TQuery;
DataSource2: TDataSource;
Query2BDEDesigner: TStringField;
BitBtn4: TBitBtn;
Query3: TQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
GZOldList: TGZOldList;
implementation
{$R *.DFM}
procedure TGZOldList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
GZOldList.Release;
GZOldList:=Nil;
end;
procedure TGZOldList.FormShow(Sender: TObject);
begin
DateTimePicker2.Date:=Date;
DateTimePicker1.Date:=Date-30;
end;
procedure TGZOldList.SpeedButton1Click(Sender: TObject);
begin
Query2.Close;
Query2.Open;
GroupBox2.Visible:=True;
BitBtn4.SetFocus;
end;
procedure TGZOldList.BitBtn4Click(Sender: TObject);
begin
if Query2.Active=True then
if Query2.RecordCount<>0 then
begin
Edit1.Text:=Query2.Fields[0].AsString;
GroupBox2.Visible:=False;
Edit1.Setfocus;
end
else
begin
ShowMessage('没有挂帐人.');
GroupBox2.Visible:=False;
Edit1.SetFocus;
end;
end;
procedure TGZOldList.BitBtn2Click(Sender: TObject);
begin
if Length(Edit1.Text)=0 then
begin
ShowMessage('请输入挂帐人');
Edit1.SetFocus;
end
else
begin
if Edit1.Text='*' then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 挂帐历史表');
Query1.SQL.Add('Where 还帐时间>:A and 还帐时间<:B');
Query1.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime;
Query1.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime;
if Query1.Prepared=True then Query1.Prepare;
Query1.Open;
if Query1.RecordCount=0 then ShowMessage('对不起,这段时间离没有挂帐信息。');
end
else
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 挂帐历史表');
Query1.SQL.Add('Where 还帐时间>:A and 还帐时间<:B and 挂帐人 Like :C');
Query1.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime;
Query1.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime;
Query1.ParamByName('C').AsString:=Edit1.Text+'%';
if Query1.Prepared=True then Query1.Prepare;
Query1.Open;
if Query1.RecordCount=0 then ShowMessage('对不起,这段时间离没有挂帐信息。');
end
end;
end;
procedure TGZOldList.BitBtn3Click(Sender: TObject);
begin
if Query1.Active=True then
if Query1.RecordCount<>0 then
begin
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Delete from 挂帐点单表');
Query3.SQL.Add('Where 结帐编号=:A');
Query3.ParamByName('A').AsInteger:=Query1.FieldByName('单据编号').AsInteger;
Query3.ExecSQL;
Query1.Delete;
end;
end;
procedure TGZOldList.BitBtn1Click(Sender: TObject);
begin
Close;
end;
end.