📄 gudingban.h
字号:
//---------------------------------------------------------------------------
#ifndef GudingbanH
#define GudingbanH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Db.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormGudingban : public TForm
{
__published: // IDE-managed Components
TGroupBox *GroupBox1;
TDataSource *DataSource1;
TDBGrid *DBGrid1;
TDBEdit *DBEdit1;
TLabel *Label1;
TDBLookupComboBox *DBLookupComboBox1;
TDataSource *DataSource2;
TLabel *Label2;
TDBEdit *DBEdit2;
TLabel *Label3;
TLabel *Label4;
TLabel *Label5;
TLabel *Label6;
TLabel *Label7;
TLabel *Label8;
TLabel *Label9;
TDBLookupComboBox *DBLookupComboBox2;
TDBLookupComboBox *DBLookupComboBox3;
TDBLookupComboBox *DBLookupComboBox4;
TDBLookupComboBox *DBLookupComboBox5;
TDBLookupComboBox *DBLookupComboBox6;
TDBLookupComboBox *DBLookupComboBox7;
TBitBtn *BitBtnAdd;
TBitBtn *BitBtnAlter;
TBitBtn *BitBtnDel;
TBitBtn *BitBtnSave;
TBitBtn *BitBtnCancel;
TBitBtn *BitBtnExit;
TBitBtn *BitBtnSort;
TBitBtn *BitBtnPrint;
void __fastcall BitBtnAddClick(TObject *Sender);
void __fastcall BitBtnAlterClick(TObject *Sender);
void __fastcall BitBtnDelClick(TObject *Sender);
void __fastcall BitBtnSaveClick(TObject *Sender);
void __fastcall BitBtnCancelClick(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall FormKeyPress(TObject *Sender, char &Key);
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall BitBtnSortClick(TObject *Sender);
void __fastcall BitBtnPrintClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormGudingban(TComponent* Owner);
TADOQuery *pGdb,*pBcmc;
};
//---------------------------------------------------------------------------
extern PACKAGE TFormGudingban *FormGudingban;
//---------------------------------------------------------------------------
#endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -