📄 datebase.h
字号:
//---------------------------------------------------------------------------
#ifndef datebaseH
#define datebaseH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
#include <mxDB.hpp>
#include <mxstore.hpp>
#include <mxtables.hpp>
#include "query.h"
//---------------------------------------------------------------------------
class Tdm : public TDataModule
{
__published: // IDE-managed Components
TTable *tbl_baodan;
TDataSource *ds_baodan;
TTable *tbl_car;
TDataSource *ds_car;
TTable *tbl_lipei;
TDataSource *ds_lipei;
TTable *tbl_person;
TDataSource *ds_person;
TDatabase *mydatabase;
TQuery *qry_yewu;
TDataSource *ds_yewu;
TStringField *tbl_lipeiLipeino;
TStringField *tbl_lipeiAccident_spot;
TStringField *tbl_lipeiResponse;
TStringField *tbl_lipeiEnd_flag;
TCurrencyField *tbl_lipeiGive_object;
TCurrencyField *tbl_lipeiGive_person;
TCurrencyField *tbl_lipeiGive_car;
TCurrencyField *tbl_lipeiGive_total;
TStringField *tbl_lipeiCarno;
TSmallintField *tbl_lipeiAccident_year;
TSmallintField *tbl_lipeiAccident_month;
TSmallintField *tbl_lipeiAccident_date;
TStringField *tbl_baodanBaodanno;
TStringField *tbl_baodanName;
TSmallintField *tbl_baodanBeginyear;
TSmallintField *tbl_baodanBeginmonth;
TSmallintField *tbl_baodanBegindate;
TSmallintField *tbl_baodanEndyear;
TSmallintField *tbl_baodanEndmonth;
TSmallintField *tbl_baodanEnddate;
TQuery *qry_mingpian;
TDataSource *ds_mingping;
TQuery *qry_lipei;
TDataSource *ds_lipeiqry;
TStringField *tbl_carCarno;
TStringField *tbl_carCarnum;
TStringField *tbl_carCarname;
TStringField *tbl_carCartype;
TStringField *tbl_carCarcharacter;
TCurrencyField *tbl_carCarcharge_bad;
TCurrencyField *tbl_carCarcharge_steal;
TCurrencyField *tbl_carCarcharge_windows;
TCurrencyField *tbl_carCarcharge_three;
TCurrencyField *tbl_carCarcharge_else;
TStringField *tbl_carBaodanno;
TStringField *tbl_carPidanno;
TCurrencyField *tbl_carCarcharge_total;
TFloatField *tbl_carCarcharge_profit;
TCurrencyField *tbl_carCarcharge_duty;
TStringField *tbl_carOldCarnum;
TStringField *qry_lipeiLipeino;
TStringField *qry_lipeiEnd_flag;
TCurrencyField *qry_lipeiGive_object;
TCurrencyField *qry_lipeiGive_person;
TCurrencyField *qry_lipeiGive_car;
TCurrencyField *qry_lipeiGive_total;
TSmallintField *qry_lipeiAccident_year;
TSmallintField *qry_lipeiAccident_month;
TSmallintField *qry_lipeiAccident_date;
TStringField *qry_mingpianName;
TStringField *qry_mingpianCompany;
TStringField *qry_mingpianAddress;
TStringField *qry_mingpianCompanytel;
TStringField *qry_mingpianHandtel;
TStringField *tbl_carCarelse;
TStringField *tbl_lipeiElse;
TDecisionCube *dc_yewu;
TDecisionSource *dds_yewu;
TDecisionQuery *dqry_yewu;
TDecisionCube *dc_lipei;
TDecisionSource *dds_lipei;
TDecisionQuery *dqry_lipei;
TStringField *qry_yewuCarnum;
TStringField *qry_yewuCarname;
TStringField *qry_yewuCartype;
TStringField *qry_yewuBaodanno;
TCurrencyField *qry_yewuCarcharge_total;
TStringField *qry_yewuName;
TIntegerField *qry_yewuEndyear;
TIntegerField *qry_yewuEndmonth;
TIntegerField *qry_yewuEnddate;
TSession *Session1;
TAutoIncField *tbl_personNo;
TStringField *tbl_personName;
TStringField *tbl_personCompany;
TStringField *tbl_personAddress;
TStringField *tbl_personCompanytel;
TStringField *tbl_personHometel;
TStringField *tbl_personHandtel;
TStringField *tbl_personBptel;
TStringField *tbl_personPapertel;
TStringField *tbl_personEmail;
TStringField *tbl_personUrl;
private:
void __fastcall Dopost(TDataSet* Data);
String www1[];
String www2[];
int i1;
int i2;
public:
__fastcall Tdm(TComponent* Owner);
void __fastcall Mdsetup_baodan();
void __fastcall Opentable();
void __fastcall Closetable();
void __fastcall Postall();
void __fastcall LookupBaodan(String str);
void __fastcall LookupPerson(String str);
void __fastcall LookupBaodanCancel();
};
//---------------------------------------------------------------------------
extern PACKAGE Tdm *dm;
//---------------------------------------------------------------------------
#endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -