unit zhujiemian;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ToolWin, Vcl.ComCtrls, Vcl.Menus,
Vcl.ImgList, System.Actions, Vcl.ActnList;
type
TForm3 = class(TForm)
clbr1: TCoolBar;
tlb1: TToolBar;
add: TToolButton;
alter: TToolButton;
delte: TToolButton;
btn5: TToolButton;
exit: TToolButton;
lv1: TListView;
pm1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
il1: TImageList;
actlst1: TActionList;
actnew: TAction;
actedit: TAction;
actdelete: TAction;
actExit: TAction;
procedure addClick(Sender: TObject);
procedure alterClick(Sender: TObject);
procedure delteClick(Sender: TObject);
procedure exitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
Tlogin = class //定义login对象
private //私有化成员
FID : Integer;
FNAME: string;
FSTARTDATE: TDate