selectbkzdunit.pas

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

unit SelectBKZDUnit;

interface

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

type
  TSelectBKZDForm = class(TForm)
    suiPanel1: TsuiPanel;
    Label1: TLabel;
    sdbgrd1: TsuiDBGrid;
    dtp1: TDateTimePicker;
    suiMaskEdit1: TsuiMaskEdit;
    DateTimePicker1: TDateTimePicker;
    suiMaskEdit2: TsuiMaskEdit;
    suiRadioButton1: TsuiRadioButton;
    suiComboBox1: TsuiComboBox;
    suiRadioButton3: TsuiRadioButton;
    suiRadioButton5: TsuiRadioButton;
    btn1: TsuiButton;
    btn2: TsuiButton;
    suiEdit1: TsuiEdit;
    suiRadioButton8: TsuiRadioButton;
    suiDBGrid1: TsuiDBGrid;
    stsbr2: TsuiStatusBar;
    ds1: TClientDataSet;
    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;
    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;
    procedure suiComboBox1DropDown(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure ds1AfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectBKZDForm: TSelectBKZDForm;

implementation

uses YYCXUnit, LoginUnit;

{$R *.dfm}

procedure TSelectBKZDForm.btn2Click(Sender: TObject);
begin
  Close;
end;

procedure TSelectBKZDForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  self.ClientDataSet1.Close;
  Self.ds3.Close;
  Self.ds1.Close;
  YYCXForm.Enabled:=true;
end;

procedure TSelectBKZDForm.FormCreate(Sender: TObject);
begin
  self.suiEdit1.Clear;
  self.suiComboBox1.Clear;
  Self.dtp1.DateTime:=Now;
  self.DateTimePicker1.DateTime:=Self.dtp1.DateTime;
  loginform.ExecuteSQL('select sum(Jzjl_ssje),sum(jzjl_fby),sum(Jzjl_xfje) from bkjz');
  self.stsbr2.Panels[0].Text:='当前所有账单 '+
                              '总收入金额【'+formatfloat('￥0.00',loginform.dsQuery.Fields[0].AsFloat)+'】 '+
                              '总支出金额【'+formatfloat('￥0.00',loginform.dsQuery.Fields[1].AsFloat)+'】 '+
                              '总挂账金额【'+formatfloat('￥0.00',loginform.dsQuery.Fields[2].AsFloat)+'】';
  loginform.dsQuery.Close;
  Self.ds1.Close;
  Self.ds1.CommandText:='select * from bkjz';
  self.ds1.Open;
end;

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

procedure TSelectBKZDForm.btn1Click(Sender: TObject);
var
  sql:string;
  startime,endtime:string;
  temp:string;
begin
  if self.suiRadioButton5.Checked then
    sql:='select * from bkjz';
  if self.suiRadioButton1.Checked then
    sql:='select * from bkjz where Jzjl_ywbh='''+self.suiComboBox1.Text+'''';
  if self.suiRadioButton8.Checked then
    begin
      LoginForm.ExecuteSQL('select id from guest where name='''+self.suiEdit1.Text+'''');
      LoginForm.dsQuery.First;
      while not LoginForm.dsQuery.Eof do
        begin
          temp:=temp+loginform.dsQuery.Fields[0].AsString+'@';
          LoginForm.dsQuery.Next;
        end;
      LoginForm.dsQuery.Close;
      sql:='select * from bkjz where';
      while Pos('@',temp)>0 do
        begin
          sql:=sql+' (jzjl_khbh='''+copy(temp,1,Pos('@',temp)-1)+''') or';
          Delete(temp,1,Pos('@',temp));
        end;
      Delete(sql,Length(sql)-2,3);
    end;
  if self.suiRadioButton3.Checked then
    begin
      startime:=FormatDateTime('yyyy-mm-dd',self.dtp1.Date)+' '+self.suiMaskEdit1.Text;
      endtime:=FormatDateTime('yyyy-mm-dd',self.DateTimePicker1.Date)+' '+self.suiMaskEdit2.Text;
      sql:='select * from bkjz where (Jzjl_jssj>='''+startime+''') and (Jzjl_jssj<='''+endtime+''')';
    end;
  Self.ds1.Close;
  Self.ds1.CommandText:=sql;
  self.ds1.Open;
  if self.ds1.RecordCount=0 then
    self.stsbr2.Panels[0].Text:='当前所有账单 总收入金额【￥0.00】 总支出金额【￥0.00】 总挂账金额【￥0.00】';
end;

procedure TSelectBKZDForm.suiComboBox1DropDown(Sender: TObject);
begin
  LoginForm.AddCombobox(Self.suiComboBox1,'select Jzjl_ywbh from bkjz');
end;

end.