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