unit_addorg.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_Addorg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Mask, DBCtrls, ExtCtrls;

type
  TFrmAddorg = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DBNavigator1: TDBNavigator;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure setButton();
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAddorg: TFrmAddorg;

implementation

uses Unit_Common, unit_DataM;

{$R *.dfm}
procedure TFrmAddorg.setButton();
begin
Button1.Enabled:=false;
Button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=true;
end;
procedure TFrmAddorg.Button1Click(Sender: TObject);
begin
 DBEdit1.Enabled:=true;
 DBEdit2.Enabled:=true;
DBNavigator1.BtnClick(nbEdit);
    setButton;
end;

procedure TFrmAddorg.Button2Click(Sender: TObject);
begin
  DBEdit1.Enabled:=true;
 DBEdit2.Enabled:=true;

 DBNavigator1.BtnClick(nbDelete);
 Button1.Enabled:=true;
 Button2.Enabled:=true;
 button3.Enabled:=true;
 button4.Enabled:=false;


end;

procedure TFrmAddorg.Button4Click(Sender: TObject);
begin
// [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete,
//        nbEdit, nbPost, nbCancel, nbRefresh];
DBNavigator1.BtnClick(nbPost);
Button1.Enabled:=true;
Button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=false;

DBEdit1.Enabled:=false;
 DBEdit2.Enabled:=false;
end;

procedure TFrmAddorg.Button3Click(Sender: TObject);
 var
 sqlstr:string;
begin
 DBEdit1.Enabled:=true;
 DBEdit2.Enabled:=true;
//sqlstr:='select loginname from operator where loginname='+''''+trim(dbedit1.Text)+'''';
 // if dtm.DataSetResultCount(sqlstr)=0 then
  //begin
  DBNavigator1.BtnClick(nbInsert);
   setButton;
  // end
   //else
   // MessageWarning('该用户名已经存在')
end;

procedure TFrmAddorg.FormActivate(Sender: TObject);
begin
Button1.Enabled:=true;
Button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=false;

end;

procedure TFrmAddorg.FormCreate(Sender: TObject);
begin
 DBEdit1.Enabled:=false;
  DBEdit2.Enabled:=false;
  ADOQuery1.Active:=true;
end;

end.