?? frmlogin.~cpp
字號:
Table2->FieldByName("czqx1")->AsString="S00S10S11S12S13S14S15S16S17S18";
Table2->FieldByName("czqx2")->AsString="";
Table2->Post();
delete Table1;
delete Table2;
}
}
delete database1;
}
__finally
{
delete yList;
}
Application->CreateForm(__classid(TFrmtool), &Frmtool);
Frmtool->ShowModal();
}
catch (...)
{
delete database1;
MessageBox(NULL,"MSSQL Server數據庫服務器或用戶名或密碼錯誤!","提示",MB_OK|MB_ICONWARNING);
Session->DeleteAlias("ydls"); //刪除BDE別名
Session->SaveConfigFile();
}
}
//---------------------------------------------------------------------------
void __fastcall TLogin::BitBtn3Click(TObject *Sender)
{
Application->HelpJump("dl");
}
//---------------------------------------------------------------------------
void TLogin::createsjb()
{
AnsiString sql;
TDatabase *database2=new TDatabase(this); //創建數據庫
try
{
database2->AliasName="ydgl";
database2->DatabaseName="ydgl";
database2->LoginPrompt=false;
database2->Params->Add("USER NAME="+Edit2->Text);
database2->Params->Add("PASSWORD="+Edit1->Text);
database2->Open();
sql=sql+"CREATE TABLE dbo.BYQCS (";
sql=sql+"byq_id int NOT NULL IDENTITY (1, 1),";
sql=sql+"byq_xh char(16) NULL,";
sql=sql+"byq_lb char(16) NULL,";
sql=sql+"byq_rl int NULL,";
sql=sql+"byq_dy char(10) NULL,";
sql=sql+"byq_ygcu numeric(18, 6) NULL,";
sql=sql+"byq_ygfe numeric(18, 3) NULL,";
sql=sql+"byq_wgcu numeric(18, 6) NULL,";
sql=sql+"byq_wgfe numeric(18, 3) NULL,";
sql=sql+"byq_yxxs int NULL) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫
sql="";
sql=sql+"CREATE NONCLUSTERED INDEX IX_BYQCS ON dbo.BYQCS (";
sql=sql+"byq_xh) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE TABLE dbo.CBYK (";
sql=sql+"CBY_ID int NOT NULL IDENTITY (1, 1),";
sql=sql+"CBY_BH char(10) NULL,";
sql=sql+"CBY_XM char(10) NULL,";
sql=sql+"CBY_BZ char(40) NULL) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫
sql="";
sql=sql+"CREATE TABLE dbo.CZRZ (";
sql=sql+"No int NOT NULL IDENTITY (1, 1),";
sql=sql+"station char(30) NOT NULL,";
sql=sql+"name char(10) NOT NULL,";
sql=sql+"date char(14) NULL,";
sql=sql+"dfrq char(14) NULL,";
sql=sql+"qssj char(14) NULL,";
sql=sql+"zzsj char(14) NULL,";
sql=sql+"cznr char(50) NULL) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫
sql="";
sql=sql+"CREATE TABLE dbo.CZYGL (";
sql=sql+"ID int NOT NULL IDENTITY (1, 1),";
sql=sql+"CZYMC char(16) NOT NULL,";
sql=sql+"CZYKL char(10) NULL,";
sql=sql+"KZQX1 char(1) NULL CONSTRAINT DF_CZYGL_KZQX1 DEFAULT ('0'),";
sql=sql+"CZQX1 char(255) NULL,";
sql=sql+"CZQX2 char(255) NULL) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫
sql="";
sql=sql+"CREATE TABLE dbo.DBDA0000 (";
sql=sql+"db_id int NOT NULL IDENTITY (1, 1),";
sql=sql+"hsqx char(7) NULL,";
sql=sql+"hhhh char(10) NOT NULL,";
sql=sql+"gddy char(16) NULL,";
sql=sql+"hydm char(40) NULL,";
sql=sql+"bh char(12) NULL,";
sql=sql+"dbbh char(4) NOT NULL,";
sql=sql+"bz char(10) NULL,";
sql=sql+"bbzj char(10) NULL,";
sql=sql+"zjbx char(4) NULL,";
sql=sql+"dblb char(6) NOT NULL,";
sql=sql+"p_fg char(1) NOT NULL CONSTRAINT DF_DBDA0000_p_fg DEFAULT ('N'),";
sql=sql+"fgp char(8) NULL,";
sql=sql+"bs char(4) NULL,";
sql=sql+"jsbs decimal(8, 0) NULL,";
sql=sql+"xshbs char(1) NOT NULL CONSTRAINT DF_DBDA0000_xshbs DEFAULT ('N'),";
sql=sql+"xs int NULL,";
sql=sql+"fxcjdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_fxcjdl DEFAULT (0),";
sql=sql+"bl decimal(6, 0) NULL,";
sql=sql+"ws decimal(1, 0) NULL,";
sql=sql+"fx char(4) NULL,";
sql=sql+"bsf decimal(4, 0) NULL CONSTRAINT DF_DBDA0000_bsf DEFAULT (0),";
sql=sql+"sycj decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_sycj DEFAULT (0),";
sql=sql+"bycj decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_bycj DEFAULT (0),";
sql=sql+"cs decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_cs DEFAULT (0),";
sql=sql+"bldl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_bldl DEFAULT (0),";
sql=sql+"fldl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_fldl DEFAULT (0),";
sql=sql+"zjdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_zjdl DEFAULT (0),";
sql=sql+"lsdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_lsdl DEFAULT (0),";
sql=sql+"hbdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_hbdl DEFAULT (0),";
sql=sql+"tzdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_tzdl DEFAULT (0),";
sql=sql+"bsdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_bsdl DEFAULT (0),";
sql=sql+"xsdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_xsdl DEFAULT (0),";
sql=sql+"hjdl decimal(18, 0) NULL CONSTRAINT DF_DBDA0000_hjdl DEFAULT (0),";
sql=sql+"zdl decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_zdl DEFAULT (0),";
sql=sql+"blf decimal(6, 0) NULL,";
sql=sql+"wsf decimal(1, 0) NULL,";
sql=sql+"fxf char(4) NULL,";
sql=sql+"bsff decimal(4, 0) NULL CONSTRAINT DF_DBDA0000_bsff DEFAULT (0),";
sql=sql+"sycjf decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_sycjf DEFAULT (0),";
sql=sql+"bycjf decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_bycjf DEFAULT (0),";
sql=sql+"csf decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_csf DEFAULT (0),";
sql=sql+"bldlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_bldlf DEFAULT (0),";
sql=sql+"fldlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_fldlf DEFAULT (0),";
sql=sql+"zjdlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_zjdlf DEFAULT (0),";
sql=sql+"lsdlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_lsdlf DEFAULT (0),";
sql=sql+"hbdlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_hbdlf DEFAULT (0),";
sql=sql+"tzdlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_tzdlf DEFAULT (0),";
sql=sql+"bsdlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_bsdlf DEFAULT (0),";
sql=sql+"xsdlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_xsdlf DEFAULT (0),";
sql=sql+"hjdlf decimal(18, 0) NULL CONSTRAINT DF_DBDA0000_hjdlf DEFAULT (0),";
sql=sql+"zdlf decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_zdlf DEFAULT (0),";
sql=sql+"blg decimal(6, 0) NULL,";
sql=sql+"wsg decimal(1, 0) NULL,";
sql=sql+"fxg char(4) NULL,";
sql=sql+"bsfg decimal(4, 0) NULL CONSTRAINT DF_DBDA0000_bsfg DEFAULT (0),";
sql=sql+"sycjg decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_sycjg DEFAULT (0),";
sql=sql+"bycjg decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_bycjg DEFAULT (0),";
sql=sql+"csg decimal(10, 1) NULL CONSTRAINT DF_DBDA0000_csg DEFAULT (0),";
sql=sql+"bldlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_bldlg DEFAULT (0),";
sql=sql+"fldlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_fldlg DEFAULT (0),";
sql=sql+"zjdlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_zjdlg DEFAULT (0),";
sql=sql+"lsdlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_lsdlg DEFAULT (0),";
sql=sql+"hbdlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_hbdlg DEFAULT (0),";
sql=sql+"tzdlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_tzdlg DEFAULT (0),";
sql=sql+"bsdlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_bsdlg DEFAULT (0),";
sql=sql+"xsdlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_xsdlg DEFAULT (0),";
sql=sql+"hjdlg decimal(18, 0) NULL CONSTRAINT DF_DBDA0000_hjdlg DEFAULT (0),";
sql=sql+"zdlg decimal(10, 0) NULL CONSTRAINT DF_DBDA0000_zdlg DEFAULT (0),";
sql=sql+"bzsm char(20) NULL,";
sql=sql+"azsj char(10) NULL,";
sql=sql+"jysj char(10) NULL,";
sql=sql+"sccj char(20) NULL,";
sql=sql+"xh char(10) NULL,";
sql=sql+"dl char(10) NULL,";
sql=sql+"dy char(10) NULL,";
sql=sql+"cq char(4) NULL,";
sql=sql+"yxzt char(4) NULL,";
sql=sql+"cszt char(1) NOT NULL CONSTRAINT DF_DBDA0000_cszt DEFAULT ('0')) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫
sql="";
sql=sql+"CREATE NONCLUSTERED INDEX IX_DBDA0000 ON dbo.DBDA0000 ";
sql=sql+"(hhhh) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE NONCLUSTERED INDEX IX_DBDA0000_1 ON dbo.DBDA0000 ";
sql=sql+"(hhhh,dbbh) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE TABLE dbo.DJKP0000 ";
sql=sql+"(kp_id int NOT NULL IDENTITY (1, 1),";
sql=sql+"hsqx char(7) NULL,";
sql=sql+"hhhh char(10) NOT NULL,";
sql=sql+"klbs char(30) NULL,";
sql=sql+"xzq char(12) NULL,";
sql=sql+"dbbh char(4) NOT NULL,";
sql=sql+"gddy char(16) NULL,";
sql=sql+"kh char(4) NULL,";
sql=sql+"jsfsf char(14) NULL,";
sql=sql+"jsfsp char(14) NULL,";
sql=sql+"jsfsg char(14) NULL,";
sql=sql+"lb char(16) NULL,";
sql=sql+"ydfl char(8) NULL,";
sql=sql+"pdbl char(12) NULL,";
sql=sql+"gfbl char(12) NULL,";
sql=sql+"dgbl char(12) NULL,";
sql=sql+"dlf decimal(18, 0) NULL CONSTRAINT DF_DJKP0000_dlf DEFAULT (0),";
sql=sql+"djf decimal(8, 5) NULL CONSTRAINT DF_DJKP0000_djf DEFAULT (0),";
sql=sql+"jef decimal(18, 2) NULL CONSTRAINT DF_DJKP0000_jef DEFAULT (0),";
sql=sql+"dlp decimal(18, 0) NULL CONSTRAINT DF_DJKP0000_dlp DEFAULT (0),";
sql=sql+"djp decimal(8, 5) NULL CONSTRAINT DF_DJKP0000_djp DEFAULT (0),";
sql=sql+"jep decimal(18, 2) NULL CONSTRAINT DF_DJKP0000_jep DEFAULT (0),";
sql=sql+"dlg decimal(18, 0) NULL CONSTRAINT DF_DJKP0000_dlg DEFAULT (0),";
sql=sql+"djg decimal(8, 5) NULL CONSTRAINT DF_DJKP0000_djg DEFAULT (0),";
sql=sql+"jeg decimal(18, 2) NULL CONSTRAINT DF_DJKP0000_jeg DEFAULT (0),";
sql=sql+"cszt char(1) NULL CONSTRAINT DF_DJKP0000_cszt DEFAULT ('0')) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE NONCLUSTERED INDEX IX_DJKP0000 ON dbo.DJKP0000 ";
sql=sql+"(hhhh) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE NONCLUSTERED INDEX IX_DJKP0000_1 ON dbo.DJKP0000 ";
sql=sql+"(dbbh) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE TABLE dbo.djsjk ";
sql=sql+"(dj_id int NOT NULL IDENTITY (1, 1),";
sql=sql+"lb char(14) NULL,";
sql=sql+"dy char(2) NULL,";
sql=sql+"dj1f decimal(8, 5) NULL,";
sql=sql+"dj1 decimal(8, 5) NULL,";
sql=sql+"dj1g decimal(8, 5) NULL,";
sql=sql+"dj2f decimal(8, 5) NULL,";
sql=sql+"dj2 decimal(8, 5) NULL,";
sql=sql+"dj2g decimal(8, 5) NULL,";
sql=sql+"dj3f decimal(8, 5) NULL,";
sql=sql+"dj3 decimal(8, 5) NULL,";
sql=sql+"dj3g decimal(8, 5) NULL,";
sql=sql+"dj4f decimal(8, 5) NULL,";
sql=sql+"dj4 decimal(8, 5) NULL,";
sql=sql+"dj4g decimal(8, 5) NULL) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE TABLE dbo.dydj ";
sql=sql+"(dy_id int NOT NULL IDENTITY (1, 1),";
sql=sql+"dy_dm char(1) NULL,";
sql=sql+"dy_dydj char(16) NULL,";
sql=sql+"dy_dygt numeric(18, 0) NULL,";
sql=sql+"dy_dypt numeric(18, 0) NULL) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE TABLE dbo.FJJJ0000 ";
sql=sql+"(FJ_ID int NOT NULL IDENTITY (1, 1),";
sql=sql+"HSQX char(7) NULL,";
sql=sql+"FJ_HHHH char(10) NULL,";
sql=sql+"FJ_KLBS char(30) NULL,";
sql=sql+"FJ_XZQ char(12) NULL,";
sql=sql+"FJ_DM char(2) NULL,";
sql=sql+"FJ_MC char(12) NULL,";
sql=sql+"FJ_DJ decimal(8, 5) NULL CONSTRAINT DF_FJJJ0000_FJ_DJ DEFAULT (0),";
sql=sql+"FJ_DL decimal(18, 2) NULL CONSTRAINT DF_FJJJ0000_FJ_DL DEFAULT (0),";
sql=sql+"FJ_JE decimal(18, 2) NULL CONSTRAINT DF_FJJJ0000_FJ_JE DEFAULT (0)) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE NONCLUSTERED INDEX IX_FJJJ0000 ON dbo.FJJJ0000 ";
sql=sql+"(FJ_HHHH) ON [PRIMARY]";
database2->Execute(sql, NULL, false, NULL); //創建數據庫索引
sql="";
sql=sql+"CREATE TABLE dbo.GDS ";
sql=sql+"(GDS_ID int NOT NULL IDENTITY (1, 1),";
sql=sql+"GDS_BH char(10) NULL,";
sql=sql+"GDS_MC char(40) NULL,";
sql=sql+"GDS_DY char(10) NULL,";
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -