uprepset.pas

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

unit UPrepSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm_PrepSet = class(TForm)
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    Edit1: TEdit;
    add1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox2: TGroupBox;
    ListBox2: TListBox;
    Edit2: TEdit;
    add2: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox3: TGroupBox;
    ListBox3: TListBox;
    Edit3: TEdit;
    add3: TBitBtn;
    BitBtn6: TBitBtn;
    GroupBox4: TGroupBox;
    ListBox4: TListBox;
    Edit4: TEdit;
    add4: TBitBtn;
    BitBtn8: TBitBtn;
    GroupBox5: TGroupBox;
    ListBox5: TListBox;
    Edit5: TEdit;
    add5: TBitBtn;
    BitBtn10: TBitBtn;
    GroupBox6: TGroupBox;
    ListBox6: TListBox;
    Edit6: TEdit;
    add6: TBitBtn;
    BitBtn12: TBitBtn;
    GroupBox7: TGroupBox;
    ListBox7: TListBox;
    Edit7: TEdit;
    add7: TBitBtn;
    BitBtn14: TBitBtn;
    GroupBox8: TGroupBox;
    ListBox8: TListBox;
    Edit8: TEdit;
    add8: TBitBtn;
    BitBtn16: TBitBtn;
    procedure ad1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure add2Click(Sender: TObject);
    procedure add3Click(Sender: TObject);
    procedure add4Click(Sender: TObject);
    procedure add5Click(Sender: TObject);
    procedure add6Click(Sender: TObject);
    procedure add7Click(Sender: TObject);
    procedure add8Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
  private
    { Private declarations }
    procedure addData(var setid: integer; setname: string);
    procedure deleteData(var setid: integer; setname: string);
    procedure LoadListBox(var setid: integer);
  public
    { Public declarations }
  end;

var
  Form_PrepSet: TForm_PrepSet;

implementation
uses Umain;
{$R *.dfm}

procedure TForm_PrepSet.addData(var setid: integer; setname: string);
begin
  with Form_main.TabPrepset do
  begin
    close;
    open;
    insert;
    FieldValues['set_id'] := setid;
    FieldValues['set_name'] := setname;
    post;
    close;
  end; // with
end;

procedure TForm_PrepSet.deleteData(var setid: integer; setname: string);
begin
  with form_main.adoq1 do
  begin
    Sql.Clear;
    sql.Add('delete from prepset');
    sql.Add('where set_name=''' + setname + ''' and set_id=' + inttostr(setid));
    ExecSQL;
  end; // with
end;

procedure TForm_PrepSet.LoadListBox(var setid: integer);
begin
try
  with form_main.TabPrepset do
  begin
    open;
    while not eof do
    begin
      if (setid = FieldByName('set_ID').AsInteger) then
      begin
        case setid of //
          0: ListBox1.Items.Add(FieldByName('set_Name').AsString);
          1: ListBox2.Items.Add(FieldByName('set_Name').AsString);
          2: ListBox3.Items.Add(FieldByName('set_Name').AsString);
          3: ListBox4.Items.Add(FieldByName('set_Name').AsString);
          4: ListBox5.Items.Add(FieldByName('set_Name').AsString);
          5: ListBox6.Items.Add(FieldByName('set_Name').AsString);
          6: ListBox7.Items.Add(FieldByName('set_Name').AsString);
          7: ListBox8.Items.Add(FieldByName('set_Name').AsString)
        else
          next;
        end; // case
      end;
      next;
    end; // while
    close;
  end; // with
  except
    showmessage('打开预设表失败，请重启程序、');
  end;
end;

procedure TForm_PrepSet.ad1Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit1.Text) = '') or (length(trim(edit1.Text)) > 50) then
  begin
    showmessage('请输入名称');
    edit1.SetFocus;
  end
  else
  begin
    setid := 0;
    setname := trim(edit1.Text);
    addData(setid, setname);
    edit1.Clear;
    listbox1.Items.Add(setname);
    edit1.SetFocus;
  end;
end;

procedure TForm_PrepSet.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    ad1Click(Sender);

end;

procedure TForm_PrepSet.FormCreate(Sender: TObject);
var i: integer;
begin
  listbox1.Clear;
  listbox2.Clear;
  listbox3.Clear;
  listbox4.Clear;
  listbox5.Clear;
  listbox6.Clear;
  listbox7.Clear;
  listbox8.Clear;
  for i := 0 to 7 do // Iterate
  begin
    loadlistbox(i);
  end; // for
end;

procedure TForm_PrepSet.add2Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit2.Text) = '') or (length(trim(edit2.Text)) > 50) then
  begin
    showmessage('请输入正确的名称');
    edit2.SetFocus;
  end
  else
  begin
    setid := 1;
    setname := trim(edit2.Text);
    addData(setid, setname);
    edit2.Clear;
    listbox2.Items.Add(setname);
    edit2.SetFocus;
  end;
end;

procedure TForm_PrepSet.add3Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit3.Text) = '') or (length(trim(edit3.Text)) > 50) then
  begin
    showmessage('请输入正确的名称');
    edit3.SetFocus;
  end
  else
  begin
    setid := 2;
    setname := trim(edit3.Text);
    addData(setid, setname);
    edit3.Clear;
    listbox3.Items.Add(setname);
    edit3.SetFocus;
  end;
end;

procedure TForm_PrepSet.add4Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit4.Text) = '') or (length(trim(edit4.Text)) > 50) then
  begin
    showmessage('请输入正确的名称');
    edit4.SetFocus;
  end
  else
  begin
    setid := 3;
    setname := trim(edit4.Text);
    addData(setid, setname);
    edit4.Clear;
    listbox4.Items.Add(setname);
    edit4.SetFocus;
  end;
end;

procedure TForm_PrepSet.add5Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit5.Text) = '') or (length(trim(edit5.Text)) > 50) then
  begin
    showmessage('请输入正确的名称');
    edit5.SetFocus;
  end
  else
  begin
    setid := 4;
    setname := trim(edit5.Text);
    addData(setid, setname);
    edit5.Clear;
    listbox5.Items.Add(setname);
    edit5.SetFocus;
  end;
end;

procedure TForm_PrepSet.add6Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit6.Text) = '') or (length(trim(edit6.Text)) > 50) then
  begin
    showmessage('请输入正确的名称');
    edit6.SetFocus;
  end
  else
  begin
    setid := 5;
    setname := trim(edit6.Text);
    addData(setid, setname);
    edit6.Clear;
    listbox6.Items.Add(setname);
    edit6.SetFocus;
  end;
end;

procedure TForm_PrepSet.add7Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit7.Text) = '') or (length(trim(edit7.Text)) > 50) then
  begin
    showmessage('请输入正确的名称');
    edit7.SetFocus;
  end
  else
  begin
    setid := 6;
    setname := trim(edit7.Text);
    addData(setid, setname);
    edit7.Clear;
    listbox7.Items.Add(setname);
    edit7.SetFocus;
  end;

end;

procedure TForm_PrepSet.add8Click(Sender: TObject);
var setid: integer;
  setname: string;
begin
  if (trim(edit8.Text) = '') or (length(trim(edit8.Text)) > 50) then
  begin
    showmessage('请输入正确的名称');
    edit8.SetFocus;
  end
  else
  begin
    setid := 7;
    setname := trim(edit8.Text);
    addData(setid, setname);
    edit8.Clear;
    listbox8.Items.Add(setname);
    edit8.SetFocus;
  end;
end;

procedure TForm_PrepSet.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    add2Click(Sender);
end;

procedure TForm_PrepSet.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    add3Click(Sender);
end;

procedure TForm_PrepSet.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    add4Click(Sender);
end;

procedure TForm_PrepSet.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    add5Click(Sender);
end;

procedure TForm_PrepSet.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    add6Click(Sender);
end;

procedure TForm_PrepSet.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    add7Click(Sender);
end;

procedure TForm_PrepSet.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    add8Click(Sender);
end;

procedure TForm_PrepSet.BitBtn2Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 0;
    i := listbox1.ItemIndex;
    if i < 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox1.Items[i];
      deletedata(setid, setname);
    end;
    listbox1.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

procedure TForm_PrepSet.BitBtn4Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 1;
    i := listbox2.ItemIndex + 1;
    if i = 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox2.Items[i - 1];
      deletedata(setid, setname);
    end;
    listbox2.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

procedure TForm_PrepSet.BitBtn6Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 2;
    i := listbox3.ItemIndex + 1;
    if i = 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox3.Items[i - 1];
      deletedata(setid, setname);
    end;
    listbox3.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

procedure TForm_PrepSet.BitBtn8Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 3;
    i := listbox4.ItemIndex + 1;
    if i = 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox4.Items[i - 1];
      deletedata(setid, setname);
    end;
    listbox4.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

procedure TForm_PrepSet.BitBtn10Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 4;
    i := listbox5.ItemIndex + 1;
    if i = 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox5.Items[i - 1];
      deletedata(setid, setname);
    end;
    listbox5.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

procedure TForm_PrepSet.BitBtn12Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 5;
    i := listbox6.ItemIndex + 1;
    if i = 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox6.Items[i - 1];
      deletedata(setid, setname);
    end;
    listbox6.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

procedure TForm_PrepSet.BitBtn14Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 6;
    i := listbox7.ItemIndex + 1;
    if i = 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox7.Items[i - 1];
      deletedata(setid, setname);
    end;
    listbox7.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

procedure TForm_PrepSet.BitBtn16Click(Sender: TObject);
var i, setid: integer;
  setname: string;
begin
  try
    setid := 7;
    i := listbox8.ItemIndex + 1;
    if i = 0 then
      showmessage('请选择你要删除的类型')
    else
    begin
      setname := listbox8.Items[i - 1];
      deletedata(setid, setname);
    end;
    listbox8.Clear;
    loadlistbox(setid);
  except
    showmessage('您的操作有误，请选择您要删除的部门');
  end;
end;

end.