bmjcxxgl.pas

人员管理系统

unit bmjcxxgl;

interface

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

type
  TForm42 = class(TForm41)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    MaskEdit1: TMaskEdit;
    Memo1: TMemo;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Procedure EditValue;
    Procedure Clear;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form42: TForm42;
  aa: Boolean = False ;//设置保存按钮是否可用
implementation
  uses Dataa;
{$R *.dfm}

procedure TForm42.EditValue;
begin
  if Data3.ADOQuery2.FieldByName('部门编号').Value <> null then
  begin
    Label5.Caption :=  Data3.ADOQuery2.FieldByName('部门编号').Value;
    Edit1.Text :=  Data3.ADOQuery2.FieldByName('部门名称').Value;
    MaskEdit1.Text :=  Data3.ADOQuery2.FieldByName('部门电话').Value;
    Memo1.Text :=  Data3.ADOQuery2.FieldByName('备注').Value;
  end
  else
    Clear;
end;

procedure TForm42.FormShow(Sender: TObject);
begin
  inherited;
  with Data3.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 部门信息表');
    Open;
  end;
  If Data3.ADOQuery2.FieldByName('部门编号').Value = null then
  begin
    Application.MessageBox('该表数据为空，请向该表中插入数据。','提示',0+64);
    BitBtn1.Enabled := False;
    BitBtn2.Enabled := False;
    BitBtn5.Enabled := False;
    BitBtn6.Enabled := False;
    BitBtn7.Enabled := False;
  end
  else
  begin
    DataSource1.DataSet := Data3.ADOQuery2;
    EditValue;
  end;

end;

procedure TForm42.BitBtn1Click(Sender: TObject);
begin
  inherited;
   if Not Data3.ADOQuery2.Bof  then
  begin
    Data3.ADOQuery2.Prior;
    EditValue;
  end
  else
    BitBtn1.Enabled := False;
    BitBtn2.Enabled := True;
    BitBtn5.Enabled := True;
    BitBtn6.Enabled := True;
    BitBtn4.Enabled := False;
end;

procedure TForm42.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if Not Data3.ADOQuery2.Eof then
  begin
    Data3.ADOQuery2.Next;
    EditValue;
  end
  else
    BitBtn2.Enabled := False;
    BitBtn1.Enabled := True;
    BitBtn5.Enabled := True;
    BitBtn6.Enabled := True;
    BitBtn4.Enabled := False;
end;

procedure TForm42.BitBtn3Click(Sender: TObject);
var
  s,m: String;
  i: integer;
begin
  Clear;
  aa := True;
  BitBtn5.Enabled := False;
  BitBtn6.Enabled := False;
  s:= 'B'+ FormatDateTime('yyyymmdd',Now());
  With Data3.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(部门编号) as ss From 部门信息表 ');
    Open;
  end;
  If Data3.ADOQuery1.FieldByName('ss').Value = null then
    s := s + '001'
  else
  begin
    m:= Trim(Data3.ADOQuery1.FieldByName('ss').Value) ;
    i:= StrToInt(Trim(Copy(m,10,8))) ;
    if i<9 then
      s:= s + '00'+ InttoStr(i +1)
    else if i<99 then
      s:= s + '0'+ InttoStr(i +1)
    else
      s:= s +InttoStr(i +1);
  end;
  Label5.Caption := Trim(s);
  Edit1.SetFocus;
end;
procedure TForm42.Clear;
begin
  Edit1.Clear;
  MaskEdit1.Clear;
  Memo1.Clear;
  Label5.Caption := '';
end;

procedure TForm42.BitBtn4Click(Sender: TObject);
begin
  inherited;
  With Data3.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 部门信息表 where 部门编号 = :a');
    Parameters.ParamByName('a').Value := Trim(Label5.Caption);
    Open;
  end;
  if Data3.ADOQuery1.RecordCount > 0 then
  begin
    Application.MessageBox('该部门已经存在。','提示',64);
    Exit;
  end;
  Try
  With Data3.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Insert 部门信息表 values ( :a,:b,:c,:d)');
    Parameters.ParamByName('a').Value := Trim(Label5.Caption);
    Parameters.ParamByName('b').Value := Trim(Edit1.Text);
    Parameters.ParamByName('c').Value := Trim(MaskEdit1.Text);
    Parameters.ParamByName('d').Value := Trim(Memo1.Text);
    ExecSQL;
  end;
    Application.MessageBox('保存成功。','提示',0+64);
    BitBtn1.Enabled := True;
    BitBtn2.Enabled := True;
    self.OnShow(Sender);
    Except
      Application.MessageBox('系统出错。','提示',0+64);
      Close;
    end;
end;

procedure TForm42.BitBtn5Click(Sender: TObject);
begin
  inherited;
  Try
  if Application.MessageBox('确实要修改该条记录吗？','提示',MB_YESNO )= ID_Yes then
  begin
  with Data3.ADOQuery2 do
  begin
    Edit;
    FieldByName('部门名称').Value := Trim(Edit1.Text);
    FieldByName('部门编号').Value :=  Trim(Label5.Caption);
    FieldByName('部门电话').Value := Trim(MaskEdit1.Text);
    FieldByName('备注').Value := Trim(Memo1.Text) ;
    Post;
    Application.MessageBox('修改成功。','提示',0+64);
  end;
  end
  else
    EditValue;
  Except
    Application.MessageBox('系统出错。','提示',0+64);
    Close;
  end;
end;

procedure TForm42.BitBtn6Click(Sender: TObject);
begin
  BitBtn4.Enabled := False;
  Try
  if Application.MessageBox('确实要删除当前记录吗？','提示',MB_YESNO )= ID_Yes then
  begin
    with Data3.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete 部门信息表 where 部门编号 = :a');
      Parameters.ParamByName('a').Value := Trim(Label5.Caption);
      ExecSQL;
    end;
    Application.MessageBox('该条记录已经删除。','提示',0+64);
    OnShow(Sender);
  end;
  Except
    Application.MessageBox('系统出错。','提示',0+64);
    Close;
  end;inherited;

end;

procedure TForm42.BitBtn7Click(Sender: TObject);
begin
  inherited;
  Self.OnShow(Sender);
  BitBtn4.Enabled := False;
  BitBtn6.Enabled := True;
  BitBtn5.Enabled := True;
  BitBtn2.Enabled := True;
end;

procedure TForm42.Edit1Change(Sender: TObject);
begin
  inherited;
  if (Trim(Edit1.Text)<>'')and(Trim(Label5.Caption)<>'')and
    (Trim(MaskEdit1.Text)<>'')and(Trim(Memo1.Text)<>'')then
      BitBtn4.Enabled := True
  else
    BitBtn4.Enabled := False;
end;

procedure TForm42.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = VK_Down then
    MaskEdit1.SetFocus;
end;

procedure TForm42.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key= VK_ReTurn then
    Memo1.SetFocus
  else if Key = VK_Up then
    Edit1.SetFocus;
end;

procedure TForm42.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = VK_Up then
    MaskEdit1.SetFocus
  else if (Key = VK_ReTurn)and(BitBtn4.Enabled = True) then
    BitBtn4.SetFocus;
end;

procedure TForm42.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm42.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  TBitBtn(Sender).Font.Color := clBlue;
end;

end.