unit5.pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit10, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);
begin
  application.CreateForm(Tshanchubumen,shanchubumen);
shanchubumen.ShowModal;
shanchubumen.Free;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
form5.Close;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
dm.ADOTable2.Close;
  dm.ADOTable2.TableName:='bumenxinxi';
 dm.ADOTable2.Active:=true;
  dbgrid1.Columns[0].FieldName:='部门代码';
dbgrid1.Columns[1].FieldName:='部门名称';
dbgrid1.Columns[2].FieldName:='领导姓名';
dbgrid1.Columns[3].FieldName:='联系地址';
dbgrid1.Columns[4].FieldName:='联系电话';
dbgrid1.Columns[5].FieldName:='简介';
dbedit1.DataField:='部门代码';
dbedit2.DataField:='部门名称';
dbedit3.DataField:='领导姓名';
dbedit4.DataField:='联系地址';
dbedit5.DataField:='联系电话';
dbedit6.DataField:='简介';
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
 with dm.ADOTable2 do
 begin
 edit;
 FieldByName('部门代码').AsString:=dbedit1.Text;
 FieldByName('部门名称').AsString:=dbedit2.Text;
 FieldByName('领导姓名').AsString:=trim(dbedit3.Text);
 FieldByName('联系地址').AsString:=trim(dbedit4.Text);
 FieldByName('联系电话').AsString:=dbedit5.Text;
 FieldByName('简介').AsString:=trim(dbedit6.Text);
 post;
 end;
 application.MessageBox('修改成功!','提示',64);
end;

end.