uautosaveclear.pas

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

unit UAutoSaveClear;

interface

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

type
  TForm_AutoSave = class(TForm)
    PageControl1: TPageControl;
    TS1: TTabSheet;
    TS2: TTabSheet;
    TS3: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    selectid: integer; //记录选择的页面ID
  public
    { Public declarations }
  end;

var
  Form_AutoSave: TForm_AutoSave;

implementation
uses Umain;
{$R *.dfm}

procedure TForm_AutoSave.FormCreate(Sender: TObject);
var Prepsetid: integer;
begin
  ListBox1.Clear;
  ListBox2.Clear;
  ListBox3.Clear;
  with Form_main.TabPrepset do
  begin
    close;
    open;
    first;
    while not eof do
    begin
      Prepsetid := FieldByName('set_id').AsInteger;
      case Prepsetid of
        8: listBox1.Items.Add(fieldByName('set_name').AsString);
        9: listBox3.Items.Add(fieldByName('set_name').AsString);
        10: listBox2.Items.Add(fieldByName('set_name').AsString);
      end;
      next;
    end;
    close;
  end;
  selectid := 0;
end;

procedure TForm_AutoSave.PageControl1Change(Sender: TObject);
begin
  selectid := PageControl1.ActivePage.TabIndex;
end;

procedure TForm_AutoSave.Button2Click(Sender: TObject);
begin
  case selectid of
    0: begin
        with Form_main.ADOQ1 do
        begin
          SQL.Clear;
          SQL.Add('DELETE * FROM Prepset');
          SQL.Add('WHERE SET_ID=8');
          ExecSQL;
        end;
        ListBox1.Clear;
        showmessage('银行类型已经清空');
      end;
    1: begin
        with Form_main.ADOQ1 do
        begin
          SQL.Clear;
          SQL.Add('DELETE * FROM Prepset');
          SQL.Add('WHERE SET_ID=10');
          ExecSQL;
        end;
        ListBox2.Clear;
        showmessage('毕业院校已经清空');
      end;
    2: begin
        with Form_main.ADOQ1 do
        begin
          SQL.Clear;
          SQL.Add('DELETE * FROM Prepset');
          SQL.Add('WHERE SET_ID=9');
          ExecSQL;
        end;
        ListBox3.Clear;
        showmessage('籍贯已经清空');
      end;
  end;
end;

procedure TForm_AutoSave.Button1Click(Sender: TObject);
var ListSelect: integer;

begin
  case selectid of
    0: begin
        ListSelect := ListBox1.ItemIndex + 1;
        if (ListSelect = 0) then
        begin
          showmessage('请选择你要删除的银行名称');
          exit;
        end
        else
        begin
          with Form_main.ADOQ1 do
          begin
            SQL.Clear;
            SQL.Add('DELETE * FROM PrepSet');
            SQL.Add('WHERE set_Name=''' + ListBox1.Items[ListSelect - 1] + '''');
            ExecSQL;
          end;
          ListBox1.DeleteSelected;
        end;
      end;
    1: begin
        ListSelect := ListBox2.ItemIndex + 1;
        if (ListSelect = 0) then
        begin
          showmessage('请选择你要删除的毕业院校名称');
          exit;
        end
        else
        begin
          with Form_main.ADOQ1 do
          begin
            SQL.Clear;
            SQL.Add('DELETE * FROM PrepSet');
            SQL.Add('WHERE set_Name=''' + ListBox2.Items[ListSelect - 1] + '''');
            ExecSQL;
          end;
          ListBox2.DeleteSelected;
        end;
      end;
    2: begin
        ListSelect := ListBox3.ItemIndex + 1;
        if (ListSelect = 0) then
        begin
          showmessage('请选择你要删除的籍贯名称');
          exit;
        end
        else
        begin
          with Form_main.ADOQ1 do
          begin
            SQL.Clear;
            SQL.Add('DELETE * FROM PrepSet');
            SQL.Add('WHERE set_Name=''' + ListBox3.Items[ListSelect - 1] + '''');
            ExecSQL;
          end;
          ListBox3.DeleteSelected;
        end;
      end;
  end;
end;
end.