【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,pfm_thdsel.pas,希望对大家有所帮助!
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.
上一篇:
pfm_thd2.pas
下一篇:
一个人晕着也能去看病打针