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)
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: 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;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(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;
//  frmhzqd.Show;
  {   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;

procedure Tfrmnxcx.FormCreate(Sender: TObject);
begin
   DateTimePicker1.Date:=date;
   DateTimePicker2.Date:=date;
end;

end.