browseksdaunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit BrowseKSDAUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, ComCtrls, SUIStatusBar, Grids, DBGrids,
  SUIDBCtrls, ExtCtrls, SUIImagePanel;

type
  TBrowseKSDAForm = class(TForm)
    suiPanel1: TsuiPanel;
    sdbgrd1: TsuiDBGrid;
    suiDBGrid1: TsuiDBGrid;
    stsbr2: TsuiStatusBar;
    ds1: TClientDataSet;
    wdstrngfldds1Jzjl_ywbh: TWideStringField;
    wdstrngfldds1Jzjl_sph: TWideStringField;
    wdstrngfldds1jzjl_khbh: TWideStringField;
    ds1Jzjl_xfje: TFloatField;
    ds1Jzjl_ysje: TFloatField;
    ds1Jzjl_dzje: TFloatField;
    ds1Jzjl_ssje: TFloatField;
    ds1jzjl_fby: TFloatField;
    wdstrngfldds1Jzjl_jsfs: TWideStringField;
    wdstrngfldds1Jzjl_skr: TWideStringField;
    wdstrngfldds1Jzjl_jzzt: TWideStringField;
    ds1name: TStringField;
    wdstrngfldds1Jzjl_jssj: TWideStringField;
    ds2: TDataSource;
    ds3: TClientDataSet;
    ClientDataSet1: TClientDataSet;
    wdstrngfldClientDataSet1Lbxf_xfbh: TWideStringField;
    wdstrngfldClientDataSet1Lbxf_sph: TWideStringField;
    wdstrngfldClientDataSet1Lbxf_xfxm: TWideStringField;
    ClientDataSet1Lbxf_xmdj: TFloatField;
    wdstrngfldClientDataSet1lbxf_dzbl: TWideStringField;
    wdstrngfldClientDataSet1Lbxf_xfsl: TWideStringField;
    ClientDataSet1Lbxf_xfje: TFloatField;
    wdstrngfldClientDataSet1Lbxf_xfBegin: TWideStringField;
    wdstrngfldClientDataSet1lbxf_jjdw: TWideStringField;
    wdstrngfldClientDataSet1Lbxf_jzr: TWideStringField;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ds1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BrowseKSDAForm: TBrowseKSDAForm;

implementation

uses SelectKSDAUnit, LoginUnit;

{$R *.dfm}

procedure TBrowseKSDAForm.FormCreate(Sender: TObject);
begin
  self.ds1.Close;
  self.ds1.CommandText:='select * from bkjz where jzjl_khbh='''+SelectKSDAForm.ds1.fieldbyname('id').AsString+'''';
  self.ds1.Open;
  loginform.ExecuteSQL('select count(*),sum(Jzjl_ssje),sum(jzjl_fby),sum(Jzjl_xfje) from bkjz '+
                       'where jzjl_khbh='''+SelectKSDAForm.ds1.fieldbyname('id').AsString+'''');
  self.stsbr2.Panels[0].Text:='客人ID【'+SelectKSDAForm.ds1.fieldbyname('id').AsString+'】 '+
                              '联系电话【'+SelectKSDAForm.ds1.fieldbyname('phone').AsString+'】 '+
                              '来店次数【'+loginform.dsQuery.Fields[0].AsString+'】 '+
                              '总收入金额【'+formatfloat('￥0.00',loginform.dsQuery.Fields[1].AsFloat)+'】 '+
                              '总支出金额【'+formatfloat('￥0.00',loginform.dsQuery.Fields[2].AsFloat)+'】 '+
                              '总挂账金额【'+formatfloat('￥0.00',loginform.dsQuery.Fields[3].AsFloat)+'】';
  LoginForm.dsQuery.Close;
end;

procedure TBrowseKSDAForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  self.ClientDataSet1.Close;
  self.ds3.Close;
  self.ds1.Close;
  SelectKSDAForm.Enabled:=True;
end;

procedure TBrowseKSDAForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then
    close;
end;

procedure TBrowseKSDAForm.ds1AfterScroll(DataSet: TDataSet);
begin
  self.ClientDataSet1.Close;
  Self.ClientDataSet1.Open;
end;

end.