评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋(7)

2013-06-11 01:06 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