yhxxgl.pas

用delphi编写的人事管理系统

unit yhxxgl;

interface

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

type
  TForm75 = class(TForm41)
    DataSource1: TDataSource;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel3: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form75: TForm75;

implementation
  uses Dataa;
{$R *.dfm}

procedure TForm75.FormShow(Sender: TObject);
begin
  inherited;
  with Data3.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 银行信息表');
    Open;
  end;
  DataSource1.DataSet := Data3.ADOQuery1;
  
end;

procedure TForm75.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if Trim(Edit1.Text)<>''then
  begin
    Try
      with Data3.ADOQuery2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert 银行信息表 Values (:a)');
        Parameters.ParamByName('a').Value := Trim(Edit1.Text);
        ExecSQL;
      end;
      Edit1.Clear;
      Edit1.SetFocus;
      Self.OnShow(Sender);
    Except
      Application.MessageBox('系统出错。','提示',64);
      Close;
    end;
  end;
end;

procedure TForm75.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if Data3.ADOQuery1.FieldByName('银行名称').Value = null then
  begin
    Application.MessageBox('当前数据集中没有可删除的记录。','提示',64);
    Exit;
  end;
  if Application.MessageBox('确实要删除当前记录吗？','提示',MB_YesNO)= ID_Yes then
  begin
    Data3.ADOQuery1.Delete;
  end;
end;

procedure TForm75.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (Trim(Edit1.Text)<>'')and(Key = VK_ReTurn)then
    BitBtn1.SetFocus;
end;

procedure TForm75.BitBtn1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm75.BitBtn1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  TBitBtn(Sender).Font.Color := clBlue;
end;

end.