uaddagoodd.pas

来自「港口货物管理系统」· PAS 代码 · 共 103 行

unit uaddagoodd;

interface

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

type
  Tfmaddagoodd = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmaddagoodd: Tfmaddagoodd;

implementation

uses ulogin;



{$R *.dfm}

procedure Tfmaddagoodd.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';

end;

procedure Tfmaddagoodd.BitBtn1Click(Sender: TObject);
begin
if table1.Locate('agoodd',trim(edit1.Text),[])=true then
begin
showmessage('你的帐号已经存在请重输！');
end
else
table1.InsertRecord([trim(edit1.Text),trim(edit2.Text),trim(edit3.Text)]);
edit1.SetFocus;
edit1.SelectAll;
end;

procedure Tfmaddagoodd.BitBtn2Click(Sender: TObject);
begin
table1.Edit;
table1.Delete;

end;

procedure Tfmaddagoodd.BitBtn3Click(Sender: TObject);
begin
fmaddagoodd.Close;
end;

procedure Tfmaddagoodd.BitBtn4Click(Sender: TObject);
begin
table1.Edit;
table1.Post;
end;

procedure Tfmaddagoodd.Table1AfterScroll(DataSet: TDataSet);
begin
if table1.Fields[0].IsNull<>true then
edit1.Text:=table1.FieldValues['agoodd']
else edit1.Text:='';
if table1.Fields[1].IsNull<>true then
edit2.Text:=table1.FieldValues['agooddtel']
else edit2.Text:='';
if table1.Fields[2].IsNull<>true then
edit3.Text:=table1.FieldValues['agooddadd']
else edit3.Text:='';
end;

end.