card.pas

这个工资管理系统是我今年的毕业设计

unit card;

interface

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

type
  TForm9 = class(TForm)
    spSkinToolBar1: TspSkinToolBar;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinSpeedButton4: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    spSkinSpeedButton5: TspSkinSpeedButton;
    spSkinPanel1: TspSkinPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure spSkinSpeedButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure spSkinSpeedButton4Click(Sender: TObject);
    procedure spSkinSpeedButton1Click(Sender: TObject);
    procedure spSkinSpeedButton2Click(Sender: TObject);
    procedure spSkinSpeedButton3Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation
uses login,cardset,cardadd,cardedit,jbxishowall,ygxxedit;
{$R *.dfm}

procedure TForm9.spSkinSpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from yinh');
adoquery1.Open;
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoquery1.Close;
end;

procedure TForm9.spSkinSpeedButton4Click(Sender: TObject);
begin
form36:=tform36.Create(application);
form36.Caption:='银行代发－银行文件设置';
form36.ShowModal;
end;

procedure TForm9.spSkinSpeedButton1Click(Sender: TObject);
begin
form37:=tform37.Create(application);
form37.Caption:='添加新的银行项';
form37.ShowModal;
end;

procedure TForm9.spSkinSpeedButton2Click(Sender: TObject);
begin
if application.MessageBox('你真的要删除该项数据吗？','系统提示',mb_YesNo or mb_defbutton2 or mb_iconstop or mb_applmodal)=IDYes then
begin
with adoquery1 do
begin
try
delete;
showmessage('数据删除成功！');
except
cancel;
showmessage('数据删除失败！！');
end;
end;
dbgrideh1.Refresh;
if assigned(ygshowall) then ygshowall.OnShow(self);
if assigned(form38) then form38.OnShow(self);
end;
end;

procedure TForm9.spSkinSpeedButton3Click(Sender: TObject);
begin
edt:=tedt.Create(application);
edt.Caption:='修改银行设置';
edt.ShowModal;
end;

procedure TForm9.DBGridEh1DblClick(Sender: TObject);
begin
edt:=tedt.Create(application);
edt.Caption:='修改银行设置';
edt.ShowModal;
end;

end.