c_tj.pas

经典的酒店管理系统

unit C_Tj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, ComCtrls, ExtCtrls, DB, DBTables,
  Grids, DBGrids;

type
  TTjForm = class(TForm)
    Panel1: TPanel;
    lblTitle: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    edtRoom: TLabeledEdit;
    dtpBd: TDateTimePicker;
    edtBt: TMaskEdit;
    dtpEd: TDateTimePicker;
    edtEt: TMaskEdit;
    btnQuery: TBitBtn;
    qryWork: TQuery;
    Panel2: TPanel;
    btnCanc: TBitBtn;
    btnPrint: TBitBtn;
    Panel3: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    lblFjh: TLabel;
    lblTjsj: TLabel;
    lblThcs: TLabel;
    lblHf: TLabel;
    lblFjf: TLabel;
    lblFwf: TLabel;
    lblZfy: TLabel;
    lblSh: TLabel;
    lblNh: TLabel;
    lblGn: TLabel;
    lblGj: TLabel;
    lblHj: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    procedure btnQueryClick(Sender: TObject);
  private
    { Private declarations }
    FLx: Integer;
    FFjh: string;
    FThcs: Integer;
    FTjsj: string;
    FHf: Currency;
    FFjf: Currency;
    FFwf: Currency;
    FZfy: Currency;
    FSh: Currency;
    FNh: Currency;
    FGn: Currency;
    FGj: Currency;
    FHj: Currency;
    procedure ShowHj;
    function SumHf(const s: string): Currency;
  public
    { Public declarations }
  end;

var
  TjForm: TTjForm;

procedure Tj(ALx: Integer);

implementation

{$R *.dfm}

procedure Tj(ALx: Integer);
begin
  TjForm := TTjForm.Create(Application);
  try
    with TjForm do
    begin
      FLx := ALx;
      if Flx=1 then lblTitle.Caption := '查询分机新纪录'
      else lblTitle.Caption := '查询分机旧记录';
      dtpBd.Date := Date;
      dtpEd.Date := Date;
      edtBt.Text := FormatDateTime('hh:nn:ss',EnCodeTime(8,0,0,0));
      edtEt.Text := edtBt.Text;
      ShowHj;
      ShowModal;
    end;
  finally
    TjForm.Free;
  end;
end;

procedure TTjForm.ShowHj;
begin
  lblFjh.Caption := FFjh;
  lblThcs.Caption := IntToStr(FThcs);
  lblTjsj.Caption := FTjsj;
  lblHf.Caption := CurrToStr(FHf)+'元';
  lblFjf.Caption := CurrToStr(FFjf)+'元';
  lblFwf.Caption := CurrToStr(FFwf)+'元';
  lblZfy.Caption := CurrToStr(FZfy)+'元';
  lblSh.Caption := CurrToStr(FSh)+'元';
  lblNh.Caption := CurrToStr(FNh)+'元';
  lblGn.Caption := CurrToStr(FGn)+'元';
  lblGj.Caption := CurrToStr(FGj)+'元';
  lblHj.Caption := CurrToStr(FHj)+'元';
end;

function TTjForm.SumHf(const s: string): Currency;
begin
  with qryWork do
  begin
    if Active then Active := False;
    SQL.Clear;
    SQL.Add(s);
    Open;
    if Fields[0].IsNull then Result :=0
    else Result := Fields[0].AsCurrency;
  end;
end;

procedure TTjForm.btnQueryClick(Sender: TObject);
var
  BDt,EDt,Room,s,DbfName: string;
begin
  if (edtRoom.Text='')or(edtBt.Text='')or(edtEt.Text='') then
    Exit;
  BDt := FormatDateTime('yyyymmdd',dtpBd.Date)+FormatDatetime('hhnnss',StrToTime(edtBt.Text));
  EDt := FormatDateTime('yyyymmdd',dtpEd.Date)+FormatDatetime('hhnnss',StrToTime(edtEt.Text));
  Room := edtRoom.Text;
  if FLx=1 then DbfName := 'NewData'
  else DbfName := 'OldData';
  FFjh := Room;
  FTjsj:= BDt+'-'+EDt;
  //统计次数
  s := 'select count(*) from '+DbfName+' where (Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  with qryWork do
  begin
    if Active then Active := False;
    SQL.Clear;
    SQL.Add(s);
    Open;
    if Fields[0].IsNull then FThcs :=0
    else FThcs := Fields[0].AsInteger;
  end;
  //统计话费
  s := 'select sum(FEE) from '+DbfName+' where (Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FHf := SumHf(s);
  //统计附加费
  s := 'select sum(ADDIFEE) from '+DbfName+' where (Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FFjf := SumHf(s);
  //统计服务费
  s := 'select sum(SVCFEE) from '+DbfName+' where (Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FFwf := SumHf(s);
  //统计总费用
  s := 'select sum(TOTAL) from '+DbfName+' where (Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FZfy := SumHf(s);
  //统计市话
  s := 'select sum(TOTAL) from '+DbfName+' where (FLTY=1)and(Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FSh := SumHf(s);
  //统计农话
  s := 'select sum(TOTAL) from '+DbfName+' where (FLTY=2)and(Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FNh := SumHf(s);
  //统计国内
  s := 'select sum(TOTAL) from '+DbfName+' where (FLTY=3)and(Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FGn := SumHf(s);
  //统计国际
  s := 'select sum(TOTAL) from '+DbfName+' where (FLTY=4)and(Class="'+Room+'")and((SDate+STime)>"'+BDt+'")and((SDate+STime)<"'+EDt+'")';
  FGj := SumHf(s);
  FHj := FSh + FNh + FGn + FGj;
  ShowHj;

end;

end.