ucxsddcx.~pas

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

unit UCXSDDCX;

interface

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

type
  TFCXSDDCX = class(TForm)
    DBGridEh1: TDBGridEh;
    ToolBar1: TToolBar;
    TBTFIND: TToolButton;
    ToolButton9: TToolButton;
    TBTPRINT: TToolButton;
    TBTEXIT: TToolButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DtTbegin: TDateTimePicker;
    DtTend: TDateTimePicker;
    CobMD: TComboBox;
    CobCZY: TComboBox;
    EdtKHBH: TEdit;
    EdtKHMC: TEdit;
    DataSource1: TDataSource;
    frxReport1: TfrxReport;
    frxDBDataset1: TfrxDBDataset;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Label7: TLabel;
    CobSQY: TComboBox;
    Label8: TLabel;
    CobZT: TComboBox;
    Label9: TLabel;
    EdtKHDZ: TEdit;
    Label10: TLabel;
    EdtKHDH: TEdit;
    Label11: TLabel;
    EdtGPH: TEdit;
    Panel2: TPanel;
    DBGridEh2: TDBGridEh;
    procedure ToolButton3Click(Sender: TObject);
  private
    procedure FindXSD;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FCXSDDCX: TFCXSDDCX;

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


procedure TFCXSDDCX.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.* FROM JG订货单主表 a,JG门店 b where (a.门店编号=b.门店编号)'+strtmp;
  RunSQL(DM.ADOQ_CZXSD,strSQL,0);
end;

procedure TFCXSDDCX.ToolButton3Click(Sender: TObject);
begin
  self.Close;
end;

end.