uddcx.~pas

相关的销售服务管理行业的一个软件

unit Uddcx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, ComCtrls, Grids, DBGrids, Mask, Buttons, ExtCtrls, Db,
  ADODB, EHGrids, DBGridEh;

type
  Tfrmddcx = class(TForm)
    Panel1: TPanel;
    Label11: TLabel;
    Label13: TLabel;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    PrintBtn: TBitBtn;
    DTP1: TDateTimePicker;
    DTP2: TDateTimePicker;
    KHCB: TComboBox;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    DBGrid4: TDBGrid;
    Panel4: TPanel;
    ADOTkh: TADOTable;
    DataSource1: TDataSource;
    DBGrid5: TDBGrid;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGridEh2: TDBGridEh;
    ADOQuery2r_name: TWideStringField;
    ADOQuery2amount: TIntegerField;
    ADOQuery2face: TWideStringField;
    ADOQuery2model: TWideStringField;
    ADOQuery2inperson: TWideStringField;
    ADOQuery2overdate: TDateTimeField;
    ADOQuery2zldate: TDateTimeField;
    ADOQuery2scdate: TDateTimeField;
    ADOQuery2scoverdate: TDateTimeField;
    ADOQuery2senddate: TDateTimeField;
    ADOQuery2orderno: TWideStringField;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    ADOQuery4OrderNo: TWideStringField;
    ADOQuery4R_name: TWideStringField;
    ADOQuery4ShoesNo: TWideStringField;
    ADOQuery4Color: TWideStringField;
    ADOQuery4Total: TIntegerField;
    ADOQuery3OrderNo: TWideStringField;
    ADOQuery3R_name: TWideStringField;
    ADOQuery3ShoesNo: TWideStringField;
    ADOQuery3Color: TWideStringField;
    ADOQuery3Face: TWideStringField;
    ADOQuery3Size: TWideStringField;
    ADOQuery3Amount: TIntegerField;
    ADOQuery5Orderno: TWideStringField;
    ADOQuery5R_name: TWideStringField;
    ADOQuery5ShoesNo: TWideStringField;
    ADOQuery5BaoZhuangFa: TWideStringField;
    ADOQuery5Amount: TIntegerField;
    ADOQuery5BeginXiangHao: TWideStringField;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure DataSource2DataChange(Sender: TObject; Field: TField);
    procedure PrintBtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    orderid,r_nameid:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmddcx: Tfrmddcx;

implementation
  uses U_DM, Umain, import1;
{$R *.DFM}

procedure Tfrmddcx.FormShow(Sender: TObject);
begin
  DTP1.Date:=date;   DTP2.Date:=date;
  ADOTkh.Close;   ADOTkh.open;
  KHCB.Items.Clear;
  KHCB.items.Add('全　部');
  while not ADOTkh.Eof do
    begin
      KHCB.Items.Add(ADOTkh.FieldByName('nCName').asString);
      ADOTkh.Next;
  end;
  frmmain.LTitle.Caption:='订单查询';
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
end;

procedure Tfrmddcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOTkh.close;      ADOQuery1.close;
  ADOQuery2.close;   ADOQuery3.close;
  ADOQuery4.close;   ADOQuery5.close;
  frmmain.Outlook1.Visible :=true;
  frmmain.Panel1.Visible:=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.LTitle.Caption:='';
  frmddcx:=nil;
  action:=cafree;
end;

procedure Tfrmddcx.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmddcx.SpeedButton1Click(Sender: TObject);
var
  s1,s2:string;
begin
  s1:=datetostr(DTP1.date);
  s2:=datetostr(DTP2.date);
  with ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from xs_order1 where orderdate between '''+s1+''' and '''+s2+'''');
      if KHCB.text <>'全　部' then sql.Add(' and Coname like '''+KHCB.Text+'''');
      open;
    end;
end;

procedure Tfrmddcx.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  orderid:=ADOQuery1.fieldbyname('Orderno').asstring;
  with ADOQuery2 do
    begin
      close;
      Parameters[0].Value :=orderid;
      open;
    end;
end;

procedure Tfrmddcx.DataSource2DataChange(Sender: TObject; Field: TField);
begin
  r_nameid:=ADOQuery2.fieldbyname('r_name').asstring;
  with ADOQuery3 do
    begin
      close;
      Parameters[0].Value :=orderid;
      Parameters[1].Value :=r_nameid;
      open;
    end;

  with ADOQuery4 do
    begin
      close;
      Parameters[0].Value :=orderid;
      Parameters[1].Value :=r_nameid;
      open;
    end;

  with ADOQuery5 do
    begin
      close;
      Parameters[0].Value :=orderid;
      open;
    end;
end;

procedure Tfrmddcx.PrintBtnClick(Sender: TObject);
begin
   CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'306',
    nil,TAdoQuery(DataSource1.DataSet),false)      ;
end;

procedure Tfrmddcx.BitBtn1Click(Sender: TObject);
begin
   CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'306',
    nil,TAdoQuery(DataSource1.DataSet),true)      ;
end;

end.