uczxsd.~pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

unit UCZXSD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass, frxDBSet, DB, ComCtrls, StdCtrls, ExtCtrls, ToolWin,
  GridsEh, DBGridEh;

type
  TFCZXSD = class(TForm)
    DBGridEh1: TDBGridEh;
    ToolBar1: TToolBar;
    TBTFIND: TToolButton;
    ToolButton9: TToolButton;
    TBTPRINT: TToolButton;
    TBTEXIT: TToolButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    frxReport1: TfrxReport;
    frxDBDataset1: TfrxDBDataset;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DtTbegin: TDateTimePicker;
    Label6: TLabel;
    DtTend: TDateTimePicker;
    CobMD: TComboBox;
    CobCZY: TComboBox;
    EdtKHBH: TEdit;
    EdtKHMC: TEdit;
    procedure FormShow(Sender: TObject);
    procedure TBTFINDClick(Sender: TObject);
    procedure EdtKHBHKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdtKHMCKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TBTPRINTClick(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure TBTEXITClick(Sender: TObject);
  private
    procedure FindXSD;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FCZXSD: TFCZXSD;

implementation
   USES MAIN,U_dm,UsysPub,UsysConst;
{$R *.dfm}

procedure TFCZXSD.FindXSD;
var
  strMD,strCZY,strKHBH,strKHMC:string;
  Ddttbegin,Ddttend:Tdate;
  i:integer;
  strSQL,strTmp:string;
begin
  strTmp:='';
  i:=CobMD.ItemIndex;
  if i>=0 then
    strMD:=Trim(TStrMD.Strings[i]);
  i:=CobCZY.ItemIndex;
//  if i>=0 then
//    strCZY:=Trim(TStrMD.Strings[i]);
  strKHBH:=Trim(EdtKHBH.Text);
  strKHMC:=Trim(EdtKHMC.Text);
  Ddttbegin:=DtTbegin.Date;
  Ddttend:=DtTend.Date;
  if strKHBH<>'' then
    strTmp:=strTmp+'and(a.客户编号 like '+''''+strKHBH+'%'+''''+')';
  if strKHMC<>'' then
    strTmp:=strTmp+'and(a.客户名称 like '+''''+strKHMC+'%'+''''+')';
  if strMD<>'全部' then
    if strMD<>'' then
      strTmp:=strTmp+'and(a.门店编号='+''''+strMD+''''+')';
  if strCZY<>'全部' then
    if strCZY<>'' then
      strTmp:=strTmp+'and(a.回单操作员='+''''+strCZY+''''+')';
  strTmp:=strTmp+'and(a.回单时间>='+''''+DatetoStr(Ddttbegin)+' 00:00:00'+''''+')and(a.回单时间<='
          +''''+DatetoStr(Ddttend)+' 23:59:59'+''''+')';
  strSQL:='select b.*,a.*,(case a.删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 FROM JG订货单主表 a,JG门店 b where (a.门店编号=b.门店编号)'+strtmp;
  RunSQL(DM.ADOQ_CZXSD,strSQL,0);
end;

procedure TFCZXSD.FormShow(Sender: TObject);
var
  strSQL:string;
begin
  DtTbegin.Date:=dateBeginOfMonth(now());
  DtTend.Date:=now();
  strSQL:='select 门店编号 DaiMa,门店名称 MingCheng from JG门店';
  TStrMD:=SetALLCmbxItem(CobMD,DM.m_clADOQry_Temp,strSQL,True);
  FindXSD;
end;

procedure TFCZXSD.TBTFINDClick(Sender: TObject);
begin
  FindXSD;
end;

procedure TFCZXSD.EdtKHBHKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindXSD;
end;

procedure TFCZXSD.EdtKHMCKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindXSD;
end;

procedure TFCZXSD.TBTPRINTClick(Sender: TObject);
begin
  if DM.ADOQ_CZXSD.RecordCount>0 then
  begin
  if strXZZT='select' then
     strXZZT:='ok';
   self.Close;
   end
   else
     Application.MessageBox('没有可选择的单据！',MsgBxCaption,MB_OK+MB_ICONWARNING);
end;

procedure TFCZXSD.DBGridEh1DblClick(Sender: TObject);
begin
  if DM.ADOQ_CZXSD.RecordCount>0 then
  begin
  if strXZZT='select' then
     strXZZT:='ok';
   self.Close;
   end
   else
     Application.MessageBox('没有可选择的单据！',MsgBxCaption,MB_OK+MB_ICONWARNING);
end;

procedure TFCZXSD.TBTEXITClick(Sender: TObject);
begin
  strXZZT:='cancel';
  self.Close;
end;

end.