loginworks.pas

很不错的软件请使用

unit loginworks;

interface

uses
  Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls,
  Buttons, DBActns, ActnList, ADODB, XPMenu;

type
  Tloginwork = class(Tform)
    BitBtn7: TBitBtn;
    BitBtn2: TBitBtn;
    Image2: TImage;
    Label18: TLabel;
    Label1: TLabel;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    Panel1: TPanel;
    BitBtn11: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    procedure onclose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginwork: Tloginwork;

implementation

uses MainDataModule,mainformunit;

{$R *.dfm}

procedure Tloginwork.onclose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
adotable1.Active:=false;
end;

procedure Tloginwork.FormCreate(Sender: TObject);
begin
 adotable1.TableName:='LoginTable';
 adotable1.Active:=true;
end;

procedure Tloginwork.BitBtn11Click(Sender: TObject);
begin
adotable1.Append;
end;

procedure Tloginwork.BitBtn7Click(Sender: TObject);
begin
gethelp;
end;

procedure Tloginwork.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.