rylbxxgl.~pas

一个比较实用的人事管理系统,Delphi+SQL开发

unit rylbxxgl;

interface

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

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

var
  Form76: TForm76;

implementation
  uses Dataa;
{$R *.dfm}

procedure TForm76.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 TForm76.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 TForm76.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 TForm76.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (Trim(Edit1.Text)<>'')and(Key = VK_ReTurn)then
    BitBtn1.SetFocus;
end;

end.