unit20.pas

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

// 当日收支查询
//DtszcxForm
unit Unit20;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids;

type
  TDtszcxForm = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ADODataSet1AfterScroll(DataSet: TDataSet);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
//    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure loadform;
  end;

var
  DtszcxForm: TDtszcxForm;


  implementation

uses Unit21,Unit1;

{$R *.dfm}
procedure Tdtszcxform.loadform;
begin
edit1.Text:=adodataset1.FieldByName('订房编号').AsString;
edit2.Text:=adodataset1.FieldByName('客房编号').AsString;
edit3.Text:=adodataset1.FieldByName('客人名称').AsString;
edit4.Text:=adodataset1.FieldByName('证件编号').AsString;
edit5.Text:=inttostr(adodataset1.FieldByName('实收金额').AsInteger);
edit6.Text:=adodataset1.FieldByName('说明').AsString;
edit7.Text:=datetostr(adodataset1.FieldByName('日期').AsDateTime);
edit8.Text:=adodataset1.FieldByName('操作人').AsString;


end;


procedure TDtszcxForm.BitBtn1Click(Sender: TObject);
begin
 dtszcxrptform.qrlabel13.Caption:=denglu.usename;
      dtszcxrptform.QRLabel15.Caption:=datetimetostr(now);
      dtszcxrptform.QuickRep1.PreviewModal;

     adodataset1.Close;// dtszcxrptform.ADOTable1.close;
end;

procedure TDtszcxForm.BitBtn2Click(Sender: TObject);
begin
adodataset1.Close;

    close;
end;

procedure TDtszcxForm.FormActivate(Sender: TObject);

var
     Datasource1:TDataSource;
begin
     datasource1:=TDataSource.Create(self);
      dbgrid1.DataSource:=datasource1;
      dbgrid1.ReadOnly:=true;
      datasource1.DataSet:=adodataset1;
      adodataset1.Connection:=adoconnection1;
     adodataset1.Close;
     while not adodataset1.Eof do
     begin
     if strtodate(datetimetostr(adodataset1.FieldByName('日期').AsDatetime))<>date() then
     adodataset1.Delete;
     adodataset1.Next;
     end;
     adodataset1.Parameters.Clear;
     adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftdate;
          adodataset1.Parameters[0].Size:=12;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=date();
         adodataset1.CommandText:='select * from 当天收支报表' ;

      adodataset1.Open;
      if adodataset1.RecordCount=0 then
         begin
         Application.MessageBox('当日无收支！','提示信息',mb_ok);
         label9.Caption:='0';
         end
      else
         label9.Caption:=inttostr(adodataset1.RecNo);

      end;




procedure TDtszcxForm.ADODataSet1AfterScroll(DataSet: TDataSet);
begin

loadform;
label9.Caption:=inttostr(adodataset1.RecNo);
end;

procedure TDtszcxForm.BitBtn3Click(Sender: TObject);
begin
if not adodataset1.Bof then
begin
adodataset1.First;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
label9.Caption:=inttostr(adodataset1.RecNo);
Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
end
else
begin
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
label9.Caption:=inttostr(adodataset1.RecNo);
Application.MessageBox('已到第一条记录！','提示信息',mb_ok);

end;
end;

procedure TDtszcxForm.BitBtn4Click(Sender: TObject);
begin
if adodataset1.Bof then
begin
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
label9.Caption:=inttostr(adodataset1.RecNo);
Application.MessageBox('已到第一条记录！','提示信息',mb_ok)
end
else
begin
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;

adodataset1.Prior;
label9.Caption:=inttostr(adodataset1.RecNo);
end;
end;

procedure TDtszcxForm.BitBtn5Click(Sender: TObject);
begin
if adodataset1.Eof then
begin
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
label9.Caption:=inttostr(adodataset1.RecNo);
Application.MessageBox('已到最后一条记录！','提示信息',mb_ok)
end
else
begin
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
adodataset1.Next;
label9.Caption:=inttostr(adodataset1.RecNo);
end;

end;

procedure TDtszcxForm.BitBtn6Click(Sender: TObject);
begin
if not adodataset1.Eof then
begin
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
adodataset1.Last;
label9.Caption:=inttostr(adodataset1.RecNo);
Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
end
else
begin
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
label9.Caption:=inttostr(adodataset1.RecNo);
Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
end;
end;

end.