office.pas

delpi数据可例子生产企业人力资源管理系统.rar 生产企业人力资源管理系统.rar

unit office;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, SUIDBCtrls, ComCtrls, ToolWin, SUIToolBar,
  ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIEdit, SUIComboBox, ImgList,
  DBGridEh;

type
  Toffice_form = class(TForm)
    suiForm1: TsuiForm;
    suiToolBar1: TsuiToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    DBGridEh1: TDBGridEh;
    ImageList1: TImageList;
    Bevel1: TBevel;
    Label1: TLabel;
    suiComboBox1: TsuiComboBox;
    suiEdit1: TsuiEdit;
    suiButton1: TsuiButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  office_form: Toffice_form;

implementation

{$R *.dfm}

uses datamod, add_office, edit_office, LQR_office;

procedure Toffice_form.FormCreate(Sender: TObject);
var
  i:integer;
begin
  with datamodule1.ADOQ_office do
    begin
      SQL.Clear;
      SQL.Add('select * from office');
      prepared;
      open;
    end;
  suicombobox1.Clear;
  for i:=0 to datamodule1.ADOQ_office.FieldCount-5 do
    suicombobox1.Items.Add(datamodule1.ADOQ_office.Fields[i].FieldName);
  suicombobox1.ItemIndex:=0;
  suiedit1.Text:='';
  label2.Caption:='请选择查询字段和查询条件，并输入查询内容，再点击搜索按钮.';
end;

procedure Toffice_form.ToolButton1Click(Sender: TObject);
begin
  datamodule1.ADOQ_office.Append;
  add_office_form.ShowModal;
end;

procedure Toffice_form.suiButton1Click(Sender: TObject);
begin
  if trim(suiedit1.Text)='' then
  begin
    with datamodule1.ADOQ_office do
    begin
      close;
      SQL.Clear;
      SQL.Add('select * from office');
      prepared;
      open;
      label2.Caption := '共找到 ' + inttostr(RecordCount) + '条符合条件的记录';
    end;
    Exit;
  end;
  try
    datamodule1.ADOQ_office.Close;
    datamodule1.ADOQ_office.SQL.Clear;
    datamodule1.ADOQ_office.SQL.Add('select * from office '+'where '+
                          suicombobox1.text+' like ''%'+suiedit1.text+'%''');
    datamodule1.ADOQ_office.Prepared;
    datamodule1.ADOQ_office.Open;
    label2.Caption := '共找到 ' + inttostr(datamodule1.ADOQ_office.RecordCount)
                      + '条符合条件的记录';
    if datamodule1.ADOQ_office.RecordCount=0 then
      showmessage('没有找到'+suicombobox1.Text+'为'+suiedit1.Text+
                  '的记录,请确认是否有这条记录，并重新查找');
  except
    MessageBox(0,'查询失败，连接数据库错误！','错误',MB_OK);
  end;
end;

procedure Toffice_form.suiEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    suiButton1Click(Sender);
end;

procedure Toffice_form.ToolButton7Click(Sender: TObject);
begin
datamodule1.ADOQ_office.Close;
close;
end;

procedure Toffice_form.FormShow(Sender: TObject);
begin
  FormCreate(sender);
end;

procedure Toffice_form.ToolButton2Click(Sender: TObject);
begin
  with datamodule1 do
    begin
      if not (adoQ_office.RecordCount>0) then
        begin
          showmessage('当前没有选中的员工记录 或 数据库没有记录！');
          Exit;
        end
      else
        if ((Messagedlg('删除办公室员工：' + ADOQ_office.Fields[1].AsString +
           ' 将导致此员工数据不能恢复，你确实要删除吗？', mtConfirmation,
           [mbYes, mbNo], 0)) = mrYes) then
           begin
           ADOQ_office.Delete;
           showmessage('已成功删除姓名为：'+adoq_office.Fields[1].AsString+' 办公室成员');
           end;
    end;
end;

procedure Toffice_form.ToolButton4Click(Sender: TObject);
begin
  datamodule1.ADOQ_office.Edit;
  edit_office_form.ShowModal;
end;

procedure Toffice_form.ToolButton5Click(Sender: TObject);
begin
  datamodule1.ADOQ_office.Refresh;
  showmessage('数据库更新成功');
end;

procedure Toffice_form.ToolButton8Click(Sender: TObject);
begin
  LQR_bg.PreviewModal;
end;

end.