unit10.~pas

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

unit Unit10;

interface

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

type
  Tshanchubumen = 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;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shanchubumen: Tshanchubumen;

implementation

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

{$R *.dfm}

procedure Tshanchubumen.Button1Click(Sender: TObject);
begin
 if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.ADOQuery1.Delete;
 dm.ADOQuery1.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure Tshanchubumen.FormCreate(Sender: TObject);
begin
   with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from bumenxinxi');
Open;
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;
end;

procedure Tshanchubumen.Button2Click(Sender: TObject);
begin
shanchubumen.Close;
end;

end.