unit8.pas

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

unit Unit8;

interface

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

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

var
  con:string;
  Form8: TForm8;

implementation

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

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);

begin
  with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from yonghuxinxi');
Open;
dbgrid1.Columns[0].FieldName:='用户id';
dbedit1.DataField:='用户名称';
dbedit2.DataField:='用户类别';
dbedit3.DataField:='权限';
dbedit4.DataField:='身份证号';
dbedit5.DataField:='电话';
dbedit6.DataField:='邮箱';
dbedit7.DataField:='住址';
con:=dbgrid1.Columns[0].FieldName;
end;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
form8.Close;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
 application.CreateForm(TForm7,Form7);
form7.ShowModal;
form7.Free;
end;

procedure TForm8.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;

end.