adduser.pas

本系统为演示Delphi的功能而开发设计

unit AddUser;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Mask,Db;

type
  TFormUser = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label10: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label3: TLabel;
    ButtonOk: TButton;
    ButtonReturn: TButton;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBComboBox1: TDBComboBox;
    ButtonDelete: TButton;
    ButtonAdd: TButton;
    ButtonNext: TButton;
    ButtonPrior: TButton;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonPriorClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
    procedure ButtonAddClick(Sender: TObject);
    procedure ButtonDeleteClick(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonReturnClick(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit8Change(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormUser: TFormUser;

implementation
Uses HuaXia,ErrorHit;

{$R *.DFM}

procedure TFormUser.FormActivate(Sender: TObject);
begin
Try
HuaXiaData.TableUser.Active:=True;
HuaXiaData.TableSite.Active:=True;
HuaXiaData.TableCompSet.Active:=True;
If HuaXiaData.TableUser.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.TableUser.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Try
HuaXiaData.TableUser.Active:=False;
HuaXiaData.TableSite.Filtered:=False;
HuaXiaData.TableSite.Active:=False;
HuaXiaData.TableCompSet.Active:=False;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.ButtonPriorClick(Sender: TObject);
begin
Try
HuaXiaData.TableUser.Prior;
If HuaXiaData.TableUser.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.TableUser.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.ButtonNextClick(Sender: TObject);
begin
Try
HuaXiaData.TableUser.Next;
If HuaXiaData.TableUser.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.TableUser.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.ButtonAddClick(Sender: TObject);
begin
Try
HuaXiaData.TableUser.Append;
If HuaXiaData.TableUser.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.TableUser.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.ButtonDeleteClick(Sender: TObject);
begin
Try
HuaXiaData.TableUser.Delete;
If HuaXiaData.TableUser.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.TableUser.Bof Then
   ButtonPrior.Enabled:=False
Else
   ButtonPrior.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.ButtonOkClick(Sender: TObject);
begin
Try
If (HuaXiaData.TableUser.State=DsEdit) Or (HuaXiaData.TableUser.State=DsInsert) Then
   HuaXiaData.TableUser.Post;
{Close;}
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.ButtonReturnClick(Sender: TObject);
begin
Try
If (HuaXiaData.TableUser.State=DsEdit) Or (HuaXiaData.TableUser.State=DsInsert) Then
   Begin
   If MessageDlg('所做修改尚未保存,保存修改吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
      HuaXiaData.TableUser.Post
   Else
      HuaXiaData.TableUser.Cancel;
   End;
HuaXiaData.TableUser.Active:=False;
Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.DBEdit1Exit(Sender: TObject);
begin
If DBEdit1.text='' Then
   Begin
   ErrorForm.ShowModal;
   ActiveControl:=ButtonReturn;
   End;
end;

procedure TFormUser.DBEdit8Change(Sender: TObject);
begin
Try
If DBEdit8.Text<>'' Then
Begin
HuaXiaData.TableSite.Active:=False;
HuaXiaData.TableSite.Filtered:=False;
HuaXiaData.TableSite.Filter:='comp_code='+DBEdit8.Text;
HuaXiaData.TableSite.Filtered:=True;
Try
HuaXiaData.TableSite.Active:=True;
Except
HuaXiaData.TableSite.Active:=False;
End;
End
Else
HuaXiaData.TableSite.Active:=False;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormUser.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
 End;
end;

end.