uxsrbfind.pas

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

unit Uxsrbfind;

interface

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

type
  Tfrmxsrbfind = class(TForm)
    Panel1: TPanel;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGridEh1: TDBGridEh;
    Button1: TButton;
    Button2: TButton;
    DateTimePicker1: TDateTimePicker;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button3: TButton;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery2nCKCode: TWideStringField;
    ADOQuery2nCKTCode: TWideStringField;
    ADOQuery2nCKDepCode: TWideStringField;
    ADOQuery2nCKAddress: TWideStringField;
    ADOQuery2nCKPhone: TWideStringField;
    ADOQuery2nCKPerson: TWideStringField;
    ADOQuery2nCKVStyle: TWideStringField;
    ADOQuery2bCKPos: TBooleanField;
    ADOQuery2mCKMoney: TBCDField;
    ADOQuery2nMemo: TMemoField;
    ADOQuery2bUse: TBooleanField;
    ADOQuery2bEnd: TBooleanField;
    ADOQuery2nCKName: TWideStringField;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery2cknewname: TStringField;
    DBEdit1: TDBEdit;
    ADOQuery1nBillid: TWideStringField;
    ADOQuery1nDateRk: TWideStringField;
    ADOQuery1nCkCode: TWideStringField;
    ADOQuery1nXsDept: TWideStringField;
    ADOQuery1nYwMan: TWideStringField;
    ADOQuery1nYwType: TWideStringField;
    ADOQuery1nCusNo: TWideStringField;
    ADOQuery1nGysNo: TWideStringField;
    ADOQuery1nShMan: TWideStringField;
    ADOQuery1nJsMan: TWideStringField;
    ADOQuery1nCzMan: TWideStringField;
    ADOQuery1nSfTtype: TWideStringField;
    ADOQuery1nSfType_DbPd: TWideStringField;
    ADOQuery1tiisCg_xs: TBooleanField;
    ADOQuery1nRedBlue: TSmallintField;
    ADOQuery1nCgDdId: TWideStringField;
    ADOQuery1nBillDb: TWideStringField;
    ADOQuery1nMemo: TMemoField;
    ADOQuery1nDdID: TWideStringField;
    ADOQuery1nJzMan: TWideStringField;
    ADOQuery1ckname: TStringField;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxsrbfind: Tfrmxsrbfind;

implementation

uses U_DM, Unxck, Uxsrb;

{$R *.DFM}

procedure Tfrmxsrbfind.CheckBox1Click(Sender: TObject);
begin
   if  checkbox1.Checked=true then
   begin
      DBLookupComboBox1.Enabled:=true;

   end;
   if  checkbox1.Checked=false then
   begin
      DBLookupComboBox1.Enabled:=false;

   end;
end;

procedure Tfrmxsrbfind.CheckBox2Click(Sender: TObject);
begin
 if  checkbox2.Checked=true then
   begin
      edit1.ReadOnly:=false;

   end;
   if  checkbox2.Checked=false then
   begin
      edit1.ReadOnly:=true;
      edit1.text:='';

   end;
end;

procedure Tfrmxsrbfind.Button3Click(Sender: TObject);
var i:integer;
    ck,man,bdate,edate:string;
begin
  if checkbox1.Checked  then
     ck:=' nCkCode='''+Trim(dbedit1.Text)+''''
  else
     ck:='1=1 ';
  if checkbox2.Checked then
      man:=' nywman  =  '''+trim(edit1.text)+''''
  else
      man:='1=1' ;
  if  DateTimePicker1.Checked then
      bdate:='  nDateRk>='''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.DateTime)+''''
  else
      bdate:='1=1';
   if  DateTimePicker2.Checked then
      edate:='  nDateRk<='''+FormatDateTime('yyyy-mm-dd',DateTimePicker2.DateTime)+''''
  else
      edate:='1=1';
  with adoquery1 do
  begin
     close;
     sql.clear;
     sql.add( ' select * from kc_goodmaster  where nywtype='''+'销售出库'+'''');
     sql.add('   and  '+ ck+'  and  '+man +' and ' +bdate +' and  ' + edate);
     sql.savetofile('c:\ww.txt');
     open;
  end;

end;

procedure Tfrmxsrbfind.FormShow(Sender: TObject);
begin
     DateTimePicker1.date:=date;
     DateTimePicker2.date:=date;
end;

procedure Tfrmxsrbfind.Button1Click(Sender: TObject);
var s:String;
begin
   if (adoquery1.fieldbyname('nbillid').AsString)<>'' then
   begin

     dm.adoxsrbd.Close;
     dm.adoxsrbm.close;

     Frmxsrb.DBGridEh1.DataSource :=nil;
     Frmxsrb.DBGridEh1.DataSource :=Frmxsrb.DataSource2 ;
      Frmxsrb.DBGridEh1.Columns.clear;
     s:=adoquery1.fieldbyname('nbillid').AsString;
     with dm.adoxsrbm do
     begin
         close;
         sql.clear;
         sql.add('select * from kc_goodmaster where nbillid='''+s+'''');
       //  sql.savetofile('c:\dd.txt');
         open;
     end;
    close;
   end;
   
end;

procedure Tfrmxsrbfind.Button2Click(Sender: TObject);
begin
   close;
end;

procedure Tfrmxsrbfind.DBGridEh1DblClick(Sender: TObject);
begin
      button1.OnClick(nil);
end;

end.