pfm_thdsel.pas

POS收银系统

unit pfm_thdsel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ado_dm, Grids, DBGrids, Db, StdCtrls, Mask, DBCtrls, ADODB, Buttons,
  ComCtrls, DBTables, pvar_lib;

type
  Tfm_thdsel = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    BBtnOK: TBitBtn;
    BBtnCancel: TBitBtn;
    DTPicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    LBox1: TListBox;
    LBox2: TListBox;
    Query1: TQuery;
    SProc1: TStoredProc;
    Label2: TLabel;
    BBtnjbr: TBitBtn;
    BBtnshr: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BBtnOKClick(Sender: TObject);
    procedure BBtnCancelClick(Sender: TObject);
    procedure BBtnjbrClick(Sender: TObject);
    procedure BBtnshrClick(Sender: TObject);
  private
    { Private declarations }
  public
    mDateTime:TDateTime;
    mLsh:integer;
    mCkmc:string;
    mthfd:string;
    mJbrm:string;
    mShrm:string;
    mCzym:string;
    { Public declarations }
  end;

var
  fm_thdsel: Tfm_thdsel;

implementation

uses pfm_selyuangong;

{$R *.DFM}

procedure Tfm_thdsel.FormCreate(Sender: TObject);
begin
        //取分店及仓库名称
        query1.SQL.clear;
        query1.sql.add('select ckmc from t_ckxx');
        query1.open;
        while not query1.Eof do
        begin
             Lbox1.items.Add(query1.Fields[0].asstring);
             query1.next;
        end;
        query1.close;
        query1.SQL.clear;
        query1.sql.add('select fdmc from t_fendianxx');
        query1.open;
        while not query1.Eof do
        begin
             Lbox2.items.Add(query1.Fields[0].asstring);
             query1.next;
        end;
        //利用存储过程取得提货单的最大流水号
        SProc1.ParamByName('@chTable').value:='tb_thd';
        Sproc1.ExecProc;
        mLsh:=sproc1.ParamByName('@intlsh').value+1;
        sproc1.Close;
        edit1.text:=inttostr(mlsh);
       //加入初始日期
        dtpicker1.datetime:=now();
        edit3.text:=mUsername;

end;

procedure Tfm_thdsel.BBtnOKClick(Sender: TObject);
begin
     if Lbox1.itemindex<0 then
     begin
        showmessage('请选择发货仓库');
        exit;
     end;
     if Lbox2.itemindex<0 then
     begin
        showmessage('请选择提货分店');
        exit;
     end;

     mDateTime:=DTpicker1.DateTime;
     mLsh:=strtoint(edit1.text);
     mCkmc:=LBox1.items.strings[lBox1.itemindex];
     mthfd:=LBox2.items.strings[lBox2.itemindex];
     mJbrm:=edit2.text;
     mShrm:=edit4.text;
     mCzym:=edit3.text;
     ModalResult:=MROK;

end;

procedure Tfm_thdsel.BBtnCancelClick(Sender: TObject);
begin
      modalResult:=MRCANCEL;
end;

procedure Tfm_thdsel.BBtnjbrClick(Sender: TObject);
begin
    Application.CreateForm(Tfm_selyuangong, fm_selyuangong);
    fm_selyuangong.showmodal;
    edit2.text:=fm_selyuangong.ygbm;
    fm_selyuangong.free;
end;

procedure Tfm_thdsel.BBtnshrClick(Sender: TObject);
begin
    Application.CreateForm(Tfm_selyuangong, fm_selyuangong);
    fm_selyuangong.showmodal;
    edit4.text:=fm_selyuangong.ygbm;
    fm_selyuangong.free;
end;

end.