【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-pfm_sydsel.pas,希望本篇文章对您学习有所帮助。
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.
上一篇:
pfm_sydmx.pas
下一篇:
连队的第一场交谊舞