【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了depot_add_unit.pas相关资料,希望对各位网友有所帮助!
unit depot_add_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TEMPLETFORM, StdCtrls, Menus, ComCtrls, ToolWin, ExtCtrls,
LabelButton, MoveImageButton, DB, ADODB;
type
Tdepot_add = class(TTEMPLETF)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
MIBtnOK: TMoveImgBtn;
lbBtnOK: TLabelBtn;
MIBtnExit: TMoveImgBtn;
lbBtnExit: TLabelBtn;
Edit4: TEdit;
qry: TADOQuery;
DataSource1: TDataSource;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure MIBtnExitClick(Sender: TObject);
procedure MIBtnOKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
depot_add: Tdepot_add;
implementation
uses depot_unit,data_unit;
{$R *.dfm}
procedure Tdepot_add.FormShow(Sender: TObject);
begin
inherited;
edit2.SetFocus ;
if edit4.Text<>'a' then
begin
//edit1.Text:=inttostr(strtoint(trim(depot.qry.fields[0].value))+1);
edit1.text:=depot.qry.fields[0].value;
edit2.text:=depot.qry.fields[1].value;
if depot.qry.fields[2].value<>null then
edit3.text:=depot.qry.fields[2].value;
end;
if edit4.text='a' then
begin
depot.qry.Last;
edit1.text:=inttostr(strtoint(trim(depot.qry.fields[0].value))+1);
end;
end;
procedure Tdepot_add.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;
end;
procedure Tdepot_add.MIBtnExitClick(Sender: TObject);
begin
inherited;
close;
end;
procedure Tdepot_add.MIBtnOKClick(Sender: TObject);
begin
inherited;
if edit2.Text='' then
begin
application.MessageBox('仓库名称不能为空!','系统信息',mb_ok+mb_iconinformation);
end;
if edit4.text='a' then //新加入仓库
begin
with qry do // 在storage库存表中增加该仓库
begin
close;
sql.Clear ;
sql.Add('alter table storage add '+''''+'trim(edit1.text)'+'''float');
execsql;
end;
with depot.qry do //在depot表中增加资料
begin
open;
append;
fields[0].value:=trim(edit1.text);
fields[1].value:=trim(edit2.text);
fields[2].value:=trim(edit3.text);
post;
close;
open;
end;
depot_add.Close;
end;
if edit4.text<>'a' then //原仓库编辑
begin
with depot.qry do
begin
open;
edit;
fields[1].value:=edit2.text;
fields[2].value:=edit3.text;
post;
close;
open;
end;
depot_add.Close;
end;
end;
end.