unit RS_AmendUnit;

interface

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

type
  TRS_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
  RS_AmendForm: TRS_AmendForm;

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

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

end.