bm.~pas

企业工资管理系统的代码实现主要包括五个功能模块在此不一一列举

unit Bm;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private declarations }
     procedure get_req;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses Data, BMadd;
//***************************************
//2004-05-13 qhb
//检索函数
//***************************************
procedure Tform1.get_req;
var
  s:string;
begin
  s:='';
 if checkbox1.Checked then
 begin
  if trim(edit1.Text)<>'' then
   s:=s+' and 部门编码='''+trim(edit1.Text)+'''';
  if trim(edit2.Text)<>'' then
   s:=s+' and 部门名称='''+trim(edit2.Text)+'''';
 end;  
 dm.ADOQuery1.close;
 dm.ADOQuery1.SQL.Text:='select * from 部门';
 if s<>'' then
  dm.ADOQuery1.SQL.Add(' where '+copy(s,5,length(s)-4));
  dm.ADOQuery1.Open;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  //
 dm.ADOQuery1.SQL.Text:='select * from 部门';
 dm.ADOQuery1.open;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='部门编码';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='部门编码';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=80;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='部门名称';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='部门名称';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=120;
 dm.ADOQuery1.First;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  dm.ADOQuery1.close;
 application.CreateForm(tformBmAdd,formBmAdd);
 formBmAdd.ty:=1;
 formBmAdd.ShowModal;
 dm.ADOQuery1.open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  application.CreateForm(tformBmAdd,formBmAdd);
  formBmAdd.edit1.text:=dm.ADOQuery1.fieldbyname('部门编码').AsString;
  dm.ADOQuery1.close;
  formbmadd.ty:=2;
  formbmadd.ShowModal;
  dm.ADOQuery1.open;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  na:string;
begin
  na:=trim(dm.ADOQuery1.fieldbyname('部门编码').AsString);
 if application.MessageBox(pchar('确定删除'+na+'？'),'',MB_YESNO)<>IDYES then
  exit;
 dm.ADOQuery1.close;
 dm.ADOConnection1.Execute('delete from 部门 where 部门编码='''
 +na+'''');
 dm.ADOQuery1.Open;
 application.MessageBox('已删除','',64);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  panel2.Visible:=checkbox1.Checked;
  get_req;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
  get_req;
end;

end.