qzdwh.pas

工资管理系统的代码实例

unit Qzdwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, GZGLCommon, ExtCtrls, DB, Mask, DBCtrls, ADODB;

type
  TQzdwhForm = class(TForm)
    pnlQzd: TPanel;
    pnlToolBar: TPanel;
    lblYuan: TLabel;
    lblQzd: TLabel;
    btOK: TButton;
    btCancel: TButton;
    adotQzd: TADOTable;
    dbedtQzd: TDBEdit;
    dsQzd: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TQzdwhForm.FormCreate(Sender: TObject);
begin
  with adotQzd do
  begin
    Connection := AdoGzgl;
    Open;
  end;
end;

procedure TQzdwhForm.FormDestroy(Sender: TObject);
begin
  adotQzd.Close;
end;

procedure TQzdwhForm.btOKClick(Sender: TObject);
begin
  if adotQzd.State in [dsEdit, dsInsert] then
    adotQzd.Post;
end;

end.