unit pfm_sydsel;

interface

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

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

var
  fm_sydsel: Tfm_sydsel;

implementation

uses pfm_selyuangong;

{$R *.DFM}

procedure Tfm_sydsel.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;
        //利用存儲過程取得提貨單的最大流水號
        sproc1.Prepare;
        SProc1.ParamByName('@chTable').value:='tb_syd';
        SProc1.ExecProc;
        mLsh:=SProc1.ParamByName('@intlsh').value+1;
        SProc1.Close;
        edit1.text:=inttostr(mlsh);
        edit2.text:=mUsername;


end;

procedure Tfm_sydsel.BBtnOKClick(Sender: TObject);
begin
     if Lbox1.itemindex<0 then
     begin
        showmessage('請選擇倉庫名稱');
        exit;
     end;
     mDateTime:=DTpicker1.DateTime;
     mLsh:=strtoint(edit1.text);
     mCkmc:=LBox1.items.strings[lBox1.itemindex];
     mJbrm:=edit3.text;
     mShrm:=edit4.text;
     mCzym:=edit2.text;

    ModalResult:=MROK;
end;

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

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

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

end.