【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了manufacturer_add_unit.pas提供大家参考,希望对大家有所帮助!
unit manufacturer_add_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TEMPLETFORM, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls,
MoveImageButton, LabelButton;
type
Tmanufacturer_add = class(TTEMPLETF)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
lbBtnOK: TLabelBtn;
MIBtnOK: TMoveImgBtn;
lbBtnExit: TLabelBtn;
MIBtnExit: TMoveImgBtn;
Edit8: TEdit;
procedure MIBtnExitClick(Sender: TObject);
procedure MIBtnOKClick(Sender: TObject);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
manufacturer_add: Tmanufacturer_add;
implementation
uses manufacturer_unit;
{$R *.dfm}
procedure Tmanufacturer_add.MIBtnExitClick(Sender: TObject);
begin
inherited;
close;
end;
procedure Tmanufacturer_add.MIBtnOKClick(Sender: TObject);
begin
inherited;
if edit1.Text='' then
begin
application.MessageBox('供应商号不能为空!','系统信息',mb_ok+mb_iconinformation);
end;
if edit2.Text='' then
begin
application.MessageBox('供应商名称不能为空!','系统信息',mb_ok+mb_iconinformation);
end;
if edit8.Text='a' then
begin
with manufacturer.qry do
begin
open;
append;
fields[0].Value:=edit1.Text;
fields[1].Value:=edit2.Text;
fields[2].Value:=edit3.Text;
fields[3].Value:=edit4.Text;
fields[4].Value:=edit5.Text;
fields[5].Value:=edit6.Text;
fields[6].Value:=edit7.Text;
fields[7].Value:=1;
try
post;
except
application.messagebox('供应商号不能重复!','系统信息',mb_ok+mb_iconinformation);
end;
close;
open;
end;
edit8.Clear ;
manufacturer_add.Close;
exit;
end;
if edit8.Text<>'a' then
begin
with manufacturer.qry do
begin
open;
edit;
fields[0].Value:=edit1.Text;
fields[1].Value:=edit2.Text;
fields[2].Value:=edit3.Text;
fields[3].Value:=edit4.Text;
fields[4].Value:=edit5.Text;
fields[5].Value:=edit6.Text;
fields[6].Value:=edit7.Text;
post;
close;
open;
end;
edit8.Clear ;
manufacturer_add.Close;
exit;
end;
end;
procedure Tmanufacturer_add.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not (key in ['0'..'9',#8,#13,#46]) then
begin
key:=#0;
beep;
end;
end;
procedure Tmanufacturer_add.FormShow(Sender: TObject);
begin
inherited;
if edit8.text<>'a' then
begin
manufacturer_add.Edit1.Text:=trim(manufacturer.qry.Fields[0].Value);
manufacturer_add.Edit2.Text:=trim(manufacturer.qry.Fields[1].Value);
manufacturer_add.Edit3.Text:=trim(manufacturer.qry.Fields[2].Value);
manufacturer_add.Edit4.Text:=trim(manufacturer.qry.Fields[3].Value);
manufacturer_add.Edit5.Text:=trim(manufacturer.qry.Fields[4].Value);
manufacturer_add.Edit6.Text:=trim(manufacturer.qry.Fields[5].Value);
manufacturer_add.Edit7.Text:=trim(manufacturer.qry.Fields[6].Value);
end;
end;
procedure Tmanufacturer_add.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;
edit5.Clear ;
edit6.Clear ;
edit7.Clear ;
edit8.Clear ;
end;
end.
上一篇:
HMS.cpp
下一篇:
高校毕业生档案管理系统的研究和运用