pfm_pfdsel.pas

POS收银系统

unit pfm_pfdsel;

interface

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

type
  Tfm_pfdsel = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BBtnOK: TBitBtn;
    BBtnCancel: TBitBtn;
    DTPicker1: TDateTimePicker;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    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 BBtnCancelClick(Sender: TObject);
    procedure BBtnOKClick(Sender: TObject);
    procedure BBtnjbrClick(Sender: TObject);
    procedure BBtnshrClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    mLsh:integer;
    mDateTime:TDateTime;
    mpfdw:string;
    mKhmc:string;
    mJbrm:string;
    mShrm:string;
    mCzym:string;
  end;

var
  fm_pfdsel: Tfm_pfdsel;

implementation

uses pfm_selyuangong;

{$R *.DFM}

procedure Tfm_pfdsel.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.SQL.clear;
        query1.sql.add('select khmc from t_khxx');
        query1.open;
        while not query1.Eof do
        begin
             Lbox2.items.Add(query1.Fields[0].asstring);
             query1.next;
        end;
        //利用存储过程取得提货单的最大流水号
        //SProc1.Prepared;
        SProc1.ParamByName('@chTable').value:='tb_pfd';
        Sproc1.ExecProc;
        mLsh:=sproc1.ParamByName('@intlsh').value+1;
        Sproc1.Close;
        edit1.text:=inttostr(mlsh);
         edit3.text:=mUsername;
end;

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

procedure Tfm_pfdsel.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);
     mPfdw:=LBox1.items.strings[lBox1.itemindex];
     mKhmc:=LBox2.items.strings[lBox2.itemindex];
     mJbrm:=edit2.text;
     mShrm:=edit4.text;
     mCzym:=edit3.text;

    ModalResult:=MROK;
end;

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

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

end.