supplier_add.pas

这是用delphi开发的一个物资管理信息系统

unit supplier_add;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, DBTables;

type
  Tsupplier_addfrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    link_manlb: TLabel;
    supplier_addresslb: TLabel;
    link_phonelb: TLabel;
    Image1: TImage;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  supplier_addfrm: Tsupplier_addfrm;

implementation

{$R *.dfm}

procedure Tsupplier_addfrm.BitBtn2Click(Sender: TObject);
begin
 supplier_addfrm.Close ;
end;

procedure Tsupplier_addfrm.FormActivate(Sender: TObject);
  var
   s,m:string;
   i:integer;
begin
    edit2.SetFocus ;
    with query1 do
 begin
 close;
 sql.Clear ;
 sql.Add('select max(supplier_code) as ss from supplier_info');
 open;
 end;
 if query1.FieldByName ('ss').Value =null then
  s:='00001'
 else
 begin
 m:=trim(query1.fieldbyname('ss').Value );
  i:=strtoint(trim(copy(m,1,5)));
 if i<9then
 s:=s+'0000'+inttostr(i+1)
 else if i<99then
 s:=s+'000'+inttostr(i+1)
 else if i<999 then
 s:=s+'00'+inttostr(i+1)
 else if i<9999 then
 s:=s+'0'+inttostr(i+1)
 else
  s:=s+inttostr(i+1);
end;
  edit1.Text:=s;
end;


procedure Tsupplier_addfrm.BitBtn1Click(Sender: TObject);
begin
 if (trim(edit1.Text )<>'')and (trim(edit2.Text )<>'')and(trim(edit3.Text )<>'')and (trim(edit4.Text )<>'')and (trim(edit5.Text )<>'')then
   begin
     with query1 do
      begin
       close;
       sql.Clear ;
       sql.Add('insert INTO supplier_info(supplier_code,supplier_name,supplier_address,link_man,link_phone) values(:a,:b ,:c,:d,:e)');
       parambyname('a').AsString :=trim(edit1.Text );
       parambyname('b').AsString :=trim(edit2.Text );
       parambyname('c').AsString :=trim(edit4.Text );
       parambyname('d').AsString :=trim(edit3.Text );
       parambyname('e').AsString :=trim(edit5.Text );
       execsql;
      end;
    application.MessageBox('保存成功.','提示',0+64);
    edit1.Clear ;  edit3.Clear ;
    edit2.Clear ;  edit5.Clear ;
    edit4.Clear ;
    supplier_addfrm.Close ;
end;
end;

procedure Tsupplier_addfrm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   edit3.SetFocus ;
end;

procedure Tsupplier_addfrm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   edit4.SetFocus ;
end;

procedure Tsupplier_addfrm.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   edit5.SetFocus ;
end;

procedure Tsupplier_addfrm.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   bitbtn1.SetFocus;
end;

procedure Tsupplier_addfrm.Edit5KeyPress(Sender: TObject; var Key: Char);
    var
   m:boolean;
  begin
   m:=(key <#8)or(key>#8) and(key <#48)or(key>#57);
   if m then key:=#0;
end;

end.