unit GZ_AmendUnit;

interface

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

type
  TGZ_AmendForm = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GZ_AmendForm: TGZ_AmendForm;

implementation
uses Login_Unit,GZ_InUnit;
{$R *.dfm}

procedure TGZ_AmendForm.Button1Click(Sender: TObject);
begin
if combobox1.Text='職工編號' then
  begin
      if GZ_Inform.ADOTable1.Locate('職工編號',edit1.Text,[locaseinsensitive])then
       begin
         GZ_Inform.Show; //GZ_Inform.DBNavigator1.Enabled:=false;
         GZ_Inform.ADOTable1.Edit;
         GZ_Inform.ADOTable1.Post;
       end
       else
         messagebox(GZ_Amendform.Handle,'沒有符合條件的記錄','錯誤提示',mb_iconerror);
  end;
if combobox1.text='職工姓名'then
  begin
      if GZ_Inform.ADOTable1.Locate('職工姓名',edit1.Text,[locaseinsensitive])then
       begin
         GZ_Inform.Show; //GZ_Inform.DBNavigator1.Enabled:=false;
         GZ_Inform.ADOTable1.Edit;
         GZ_Inform.ADOTable1.Post;
         GZ_Inform.DBEdit2.SetFocus;
       end
       else
         messagebox(GZ_Amendform.Handle,'沒有符合條件的記錄','錯誤提示',mb_iconerror);
  end;
end;

end.