delphi+AccessVCD租赁管理系统（开题报告＋源程序＋论文正文＋外文翻译＋答辩ppt）

Next;
    DataSetLast1: TDataSetLast;
    DataSetDelete1: TDataSetDelete;
    DataSetInsert1: TDataSetInsert;
    DataSetEdit1: TDataSetEdit;
    Action_Help: TAction;
    palToolbar: TPanel;
    tiHelp: TTradeImg;
    tiPrint: TTradeImg;
    tiLocate: TTradeImg;
    tiLast: TTradeImg;
    tiNext: TTradeImg;
    tiPrior: TTradeImg;
    tiFirst: TTradeImg;
    b_tz: TTradeImg;
    tiDelete: TTradeImg;
    tiEdit: TTradeImg;
    tiNew: TTradeImg;
    LabelBtn1: TLabelBtn;
    LabelBtn2: TLabelBtn;
    LabelBtn3: TLabelBtn;
    blabel_tz: TLabelBtn;
    LabelBtn4: TLabelBtn;
    LabelBtn5: TLabelBtn;
    LabelBtn6: TLabelBtn;
    LabelBtn7: TLabelBtn;
    LabelBtn8: TLabelBtn;
    LabelBtn9: TLabelBtn;
    LabelBtn10: TLabelBtn;
    DataSource1: TDataSource;
    group: TRadioGroup;
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure groupClick(Sender: TObject);
    procedure tiLocateClick(Sender: TObject);
    procedure b_tzClick(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
    procedure ztljs;
end;

var
frm_hygl: Tfrm_hygl;
zrs,nzs,yzs:integer;//总办证数，年证数，月证数
implementation

uses datam, vipedit, vipcx, viptz;

{$R *.dfm}
procedure tfrm_hygl.ztljs;
begin
zrs:=dm.ADO_vip.RecordCount;
frm_hygl.ztl.panels[1].text:=inttostr(zrs);
dm.ADOQuery.Close;
dm.ADOQuery.SQL.Clear;
dm.ADOQuery.SQL.Add('select count(*) from vip where 证类型="年证"');
dm.ADOQuery.Open;
frm_hygl.ztl.panels[3].text:=dm.ADOQuery.Fields[0].AsString;
//月证数量
dm.ADOQuery.Close;
dm.ADOQuery.SQL.Clear;
dm.ADOQuery.SQL.Add('select count(*) from vip where 证类型="月证"');
dm.ADOQuery.Open;
frm_hygl.ztl.panels[5].text:=dm.ADOQuery.Fields[0].AsString;
//押金合计
dm.ADOQuery.Close;
dm.ADOQuery.SQL.Clear;
dm.ADOQuery.SQL.Add('select sum(押金) from vip');
dm.ADOQuery.Open;
frm_hygl.ztl.panels[7].text:=dm.ADOQuery.Fields[0].AsString+'元';

end;
procedure Tfrm_hygl.DataSetInsert1Execute(Sender: TObject);
begin
inherited;
dm.ADO_vip.Append;
dm.ADO_vip.FieldByName('性别').AsStr

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/12/12

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋论文正文＋外文翻译＋答辩ppt）(七)