unitfinacebaobiao.~pas

来自「自己做过的工程」· ~PAS 代码 · 共 165 行

unit unitfinacebaobiao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons;

type
  Tformfinacebaobiao = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    but_day: TButton;
    dtp_dateD: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    comb_monthM: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    but_month: TButton;
    Label7: TLabel;
    but_year: TButton;
    ed_yearM: TEdit;
    ed_yearY: TEdit;
    BitBtn1: TBitBtn;
    Panel4: TPanel;
    Label4: TLabel;
    dtp_dateDMX: TDateTimePicker;
    Label8: TLabel;
    Comb_checktype: TComboBox;
    but_dayMX: TButton;
    procedure but_day_baobiaoClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure but_monthClick(Sender: TObject);
    procedure but_yearClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure but_dayMXClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formfinacebaobiao: Tformfinacebaobiao;
implementation
      uses unitQRdayrep,unitQRmonthrep,unitQRyearrep,unitQRdayMXrep;
{$R *.dfm}

procedure Tformfinacebaobiao.but_day_baobiaoClick(Sender: TObject);
begin
   QRdaytime:=dtp_dateD.Date;
   formQRdayrep.QRL_time.Caption:=datetostr(QRdaytime);
   formQRdayrep.QuickRep1.Preview;
end;

procedure Tformfinacebaobiao.FormShow(Sender: TObject);
begin
    dtp_dateD.Date:=date;
    dtp_dateDMX.Date:=date;
    ed_yearM.Text:=formatdatetime('yyyy',now);
    ed_yearY.Text:=formatdatetime('yyyy',now);
    comb_monthM.Text:=formatdatetime('m',now);
end;

procedure Tformfinacebaobiao.but_monthClick(Sender: TObject);
var
   YandM:string;
   test1,test2:integer;
begin
   if (not tryStrToInt(ed_yearM.Text,test1)) or (not tryStrToInt(comb_monthM.Text,test2)) or (test1<0) or (test1>9999) or (test2<1) or (test2>12) then
       begin
           MessageBox(handle,'您输入的日期有误！','错误',MB_OK or MB_ICONERROR);
           ed_yearM.Text:='';
           comb_monthM.Text:='';
           ed_yearM.SetFocus;
           exit;
       end;

   if comb_monthM.Text<>'12' then
      begin
          YandM1:=ed_yearM.Text+'-'+comb_monthM.Text+'-01';
          YandM2:=ed_yearM.Text+'-'+inttostr(strtoint(comb_monthM.Text)+1)+'-01';
      end
   else
      begin
          YandM1:=ed_yearM.Text+'-'+comb_monthM.Text+'-01';
          YandM2:=inttostr(strtoint(ed_yearM.Text)+1)+'-01-01';
      end;

   YandM:=ed_yearM.Text+'-'+comb_monthM.Text;
   formQRmonthrep.QRL_time.Caption:=YandM;
   formQRmonthrep.QuickRep1.Preview;
end;

procedure Tformfinacebaobiao.but_yearClick(Sender: TObject);
var
   Y:string;
   test1:integer;
begin
   if (not tryStrToInt(ed_yearY.Text,test1)) or (test1<0) or (test1>9999) then
       begin
           MessageBox(handle,'您输入的日期有误！','错误',MB_OK or MB_ICONERROR);
           ed_yearY.Text:='';
           ed_yearY.SetFocus;
           exit;
       end;
   Y1:=ed_yearY.Text+'-01-01';
   Y2:=inttostr(strtoint(ed_yearY.Text)+1)+'-01-01';
   Y:=ed_yearY.Text;

   formQRyearrep.QRL_time.Caption:=Y;
   formQRyearrep.QuickRep1.Preview;

end;

procedure Tformfinacebaobiao.BitBtn1Click(Sender: TObject);
begin
    close();
end;

procedure Tformfinacebaobiao.but_dayMXClick(Sender: TObject);
begin
   formQRdayMXrep.QRL_timeC.Caption:=datetostr(dtp_dateDMX.Date);
   formQRdayMXrep.QRL_timeS.Caption:=datetostr(dtp_dateDMX.Date);

   With  formQRdayMXrep.ADODataSet1 Do
     begin
       Close;
       Prepared:=false;
       CommandText:='select * from room_fee where checktime>'+
                    ''''+datetostr(dtp_dateDMX.Date)+''''+'and checktime<'+
                    ''''+datetostr(dtp_dateDMX.Date + 1)+'''';
       Prepared:=true;
       Open;
     end;
   With  formQRdayMXrep.ADODataSet2 Do
     begin
       Close;
       Prepared:=false;
       CommandText:='select * from room_debt where checktime>'+
                    ''''+datetostr(dtp_dateDMX.Date)+''''+'and checktime<'+
                    ''''+datetostr(dtp_dateDMX.Date + 1)+'''';
       Prepared:=true;
       Open;
     end;

   if  Comb_checktype.Text='现金结账' then
       formQRdayMXrep.QuickRep1.Preview
   else if Comb_checktype.Text='签单结账' then
           formQRdayMXrep.QuickRep2.Preview
        else
           begin
               MessageBox(handle,'您输入的结账方式有误！','错误',MB_OK or MB_ICONERROR);
               Comb_checktype.Text:='';
               Comb_checktype.SetFocus;
               exit;
           end;

end;

end.