unxck.pas

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

unit Unxck;

interface

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

type
  Tfrmnxcx = class(TForm)
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    DateTimePicker2: TDateTimePicker;
    RadioGroup1: TRadioGroup;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DBEdit1: TDBEdit;
    ADOQuery1nCCode: TWideStringField;
    ADOQuery1nCName: TWideStringField;
    ADOQuery1nCAbbName: TWideStringField;
    ADOQuery1nCAddress: TWideStringField;
    ADOQuery1nCPhone: TWideStringField;
    ADOQuery1nCPostCode: TWideStringField;
    ADOQuery1nCBank: TWideStringField;
    ADOQuery1nCAccount: TWideStringField;
    ADOQuery1nCEMail: TWideStringField;
    ADOQuery1nCPerson: TWideStringField;
    ADOQuery1nCLPerson: TWideStringField;
    ADOQuery1nCAddcode: TWideStringField;
    ADOQuery1nCCCode: TWideStringField;
    ADOQuery1nCWWW: TWideStringField;
    ADOQuery1nMemo: TMemoField;
    ADOQuery1nUD1: TWideStringField;
    ADOQuery1nUD2: TWideStringField;
    ADOQuery1nUD3: TWideStringField;
    ADOQuery1nUD4: TWideStringField;
    ADOQuery1nUD5: TWideStringField;
    ADOQuery1wwww: TStringField;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmnxcx: Tfrmnxcx;

implementation

uses Ufrmckcon, U_DM, Uhzqd;

{$R *.DFM}

procedure Tfrmnxcx.BitBtn2Click(Sender: TObject);
begin
  close;
     frmnxcx.ModalResult:=mrok;
     if (frmnxcx.ModalResult=mrok)   then
     begin
       case frmnxcx.radiogroup1.ItemIndex of
       0: begin
             try
              with dm.pubQry do
              begin
                   close;
                   sql.clear;
                   sql.add('execute getclsy '+''''+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 getxsrk '+''''+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.Show;
          end;
      end;
    end;


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

end.