ufrmckcon.~pas

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

unit Ufrmckcon;

interface

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

type
  Tfrmckcon = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    RadioGroup1: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery1: TADOQuery;
    ADOQuery1nCKCode: TWideStringField;
    ADOQuery1nCKTCode: TWideStringField;
    ADOQuery1nCKName: TWideStringField;
    ADOQuery1nCKDepCode: TWideStringField;
    ADOQuery1nCKAddress: TWideStringField;
    ADOQuery1nCKPhone: TWideStringField;
    ADOQuery1nCKPerson: TWideStringField;
    ADOQuery1nCKVStyle: TWideStringField;
    ADOQuery1bCKPos: TBooleanField;
    ADOQuery1mCKMoney: TBCDField;
    ADOQuery1nMemo: TMemoField;
    ADOQuery1bUse: TBooleanField;
    ADOQuery1bEnd: TBooleanField;
    ADOQuery1wwww: TStringField;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmckcon: Tfrmckcon;

implementation

uses SYS_DataModal, U_DM, Uhzqd;

{$R *.DFM}

procedure Tfrmckcon.BitBtn2Click(Sender: TObject);
begin
     close;
     frmckcon.ModalResult:=mrok;
     if (Frmckcon.ModalResult=mrok)   then
     begin
       case Frmckcon.radiogroup1.ItemIndex of
       0: begin
             try
              with dm.pubQry do
              begin
                   close;
                   sql.clear;
                   sql.add('execute getcksy '+''''+trim(dbedit1.text)+''''+','+''''+datetostr(Frmckcon.DateTimePicker1.date)+ '''');
                   execsql;
              end;
            except
              Application.MessageBox('存在非法数据！','错误提示',0+16);
              exit;
            end;
            if (Frmhzqd=nil) then
                 frmhzqd:=Tfrmhzqd.Create(nil);
            frmhzqd.Label1.caption:='仓库：'+DBLookupComboBox1.Text ;
            frmhzqd.Label2.caption:='库存量    单位：双';
            frmhzqd.Show;
          end;
       1: begin
            try
              with dm.pubQry do
              begin
                   close;
                   sql.clear;
                   sql.add('execute getrkcount '+''''+trim(dbedit1.text)+''''+','+''''+datetostr(Frmckcon.DateTimePicker1.date)+ ''''+','+''''+datetostr(Frmckcon.DateTimePicker2.date)+''''+','+''''+'1'+'''');
                   execsql;
              end;
            except
              Application.MessageBox('存在非法数据！','错误提示',0+16);
              exit;
            end;
            if (Frmhzqd=nil) then
                 frmhzqd:=Tfrmhzqd.Create(nil);
            frmhzqd.Label1.caption:='仓库：'+DBLookupComboBox1.Text ;
            frmhzqd.Label2.caption:='入库量    单位：双';
            frmhzqd.adoquery1.close;
            frmhzqd.adoquery1.open;
            frmhzqd.Show;
          end;
       2: begin
            try
                with dm.pubQry do
                begin
                     close;
                     sql.clear;
                     sql.add('execute getrkcount '+''''+trim(dbedit1.text)+''''+','+''''+datetostr(Frmckcon.DateTimePicker1.date)+ ''''+','+''''+datetostr(Frmckcon.DateTimePicker2.date)+''''+','+''''+'-1'+'''');
                     execsql;
                end;
            except
              Application.MessageBox('存在非法数据！','错误提示',0+16);
              exit;
            end;
            if (Frmhzqd=nil) then
                 frmhzqd:=Tfrmhzqd.Create(nil);
            frmhzqd.Label1.caption:='仓库：'+DBLookupComboBox1.Text ;
            frmhzqd.Label2.caption:='出库量    单位：双';
            frmhzqd.adoquery1.close;
            frmhzqd.adoquery1.open;
            frmhzqd.Show;
          end;
       end;
   end;
end;

procedure Tfrmckcon.RadioGroup1Click(Sender: TObject);
begin
     case Frmckcon.radiogroup1.ItemIndex of
     0: begin
           DateTimePicker2.enabled:=false;
        end;
     1: begin
           DateTimePicker2.enabled:=true;
        end;
     2: begin
           DateTimePicker2.enabled:=true;
        end;
     end;   

end;

procedure Tfrmckcon.BitBtn1Click(Sender: TObject);
begin
    close;
end;

procedure Tfrmckcon.FormShow(Sender: TObject);
begin
   if adoquery1.Active=false then
     adoquery1.open;
end;

end.