📄 main.~cpp
字号:
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
control();
fhhourctrl();
gczljk();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N33_oldClick(TObject *Sender)
{
fjyb=true;
TForm7* Form7=new TForm7(Application);
Form7->ShowModal();
delete Form7;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2_oldClick(TObject *Sender)
{
printbool=PrinterSetupDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N25_oldClick(TObject *Sender)
{
TAboutBox *about=new TAboutBox(Application);
about->ShowModal();
delete about;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N28_oldClick(TObject *Sender)
{
if(M1->MessageDlg("是否要保存为电子表格? ",mtConfirmation, TMsgDlgButtons() << mbYes<<mbNo, 0)==mrNo)
{
TForm18* Form18=new TForm18(Application);
Form18->QuickRep1->Preview();
delete Form18;
}
else
{
TForm24 *f24=new TForm24(this);
f24->ADT=DataModule1->ajsb;
f24->ShowModal();
delete f24;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N29_oldClick(TObject *Sender)
{
if(M1->MessageDlg("是否要保存为电子表格? ",mtConfirmation, TMsgDlgButtons() << mbYes<<mbNo, 0)==mrNo)
{
TForm19* Form19=new TForm19(Application);
Form19->QuickRep1->Preview();
delete Form19;
}
else
{
TForm24 *f24=new TForm24(this);
f24->ADT=DataModule1->ajhc;
f24->ShowModal();
delete f24;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::APU1_oldClick(TObject *Sender)
{
pass=0;
TForm23 *Form23=new TForm23(Application);
Form23->ShowModal();
delete Form23;
TForm20* Form20=new TForm20(Application);
Form20->Memo1->ReadOnly=!edit;
Form20->Memo2->ReadOnly=!edit;
Form20->Memo3->ReadOnly=!edit;
Form20->Memo4->ReadOnly=!edit;
Form20->Memo5->ReadOnly=!edit;
Form20->Memo6->ReadOnly=!edit;
Form20->ShowModal();
delete Form20;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolBar1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button==mbRight&&Shift.Contains(ssShift) )
{TForm16 *Form16=new TForm16(Application);
DataModule1->md82ctrl->Filtered=false;
Form16->ShowModal();
delete Form16;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3_oldClick(TObject *Sender)
{
Form22->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N19_oldClick(TObject *Sender)
{
pass=3;
TForm23 *Form23=new TForm23(Application);
Form23->ShowModal();
delete Form23;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N20_oldClick(TObject *Sender)
{
pass=1;
TForm23 *Form23=new TForm23(Application);
Form23->ShowModal();
delete Form23;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
AnsiString dest=bkdir+"backup\\";
bool jieguo;
AnsiString source,destfile;
pass=0;
TForm23 *Form23=new TForm23(Application);
Form23->ShowModal();
delete Form23;
if(edit)
{
try
{
DataModule1->tiaojian->Close();
DataModule1->dayreport->Close();
DataModule1->Title->Close();
DataModule1->gk90->Close();
DataModule1->ajhc->Close();
DataModule1->ajsb->Close();
DataModule1->dingjian->Close();
DataModule1->fjyb->Close();
DataModule1->plane->Close();
delete DataModule1;
Form1->Cursor=crHourGlass;
source=lujing+"ahc.cds";
destfile=dest+"ahc.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->ajhc->LoadFromFile(source);
source=lujing+"asb.cds";
destfile=dest+"asb.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->ajsb->LoadFromFile(source);
source=lujing+"djcontrol.cds";
destfile=dest+"djcontrol.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->dingjian->LoadFromFile(source);
source=lujing+"gk90.cds";
destfile=dest+"gk90.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->gk90->LoadFromFile(source);
source=lujing+"title.cds";
destfile=dest+"title.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->Title->LoadFromFile(source);
source=lujing+"yuebao.cds";
destfile=dest+"yuebao.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->fjyb->LoadFromFile(source);
source=lujing+"飞机.cds";
destfile=dest+"飞机.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->plane->LoadFromFile(source);
source=lujing+"日报.cds";
destfile=dest+"日报.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->dayreport->LoadFromFile(source);
source=lujing+"条件.cds";
destfile=dest+"条件.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
//DataModule1->tiaojian->LoadFromFile(source);
source=lujing+"apu.txt";
destfile=dest+"apu.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"apusn.txt";
destfile=dest+"apusn.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"lefteng.txt";
destfile=dest+"lefteng.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"plane.txt";
destfile=dest+"plane.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"righteng.txt";
destfile=dest+"righteng.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"starter.txt";
destfile=dest+"starter.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"hydr82.txt";
destfile=dest+"hydr82.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"hydr90.txt";
destfile=dest+"hydr90.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"oil82.txt";
destfile=dest+"oil82.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"oil90.txt";
destfile=dest+"oil90.txt";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"bzcyb1.cds";
destfile=dest+"bzcyb1.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"hours.cds";
destfile=dest+"hours.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"md82ctrl.cds";
destfile=dest+"md82ctrl.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"oil.cds";
destfile=dest+"oil.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"bzcsjtj.cds";
destfile=dest+"bzcsjtj.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"jihua.cds";
destfile=dest+"jihua.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
source=lujing+"gczl.cds";
destfile=dest+"gczl.cds";
DeleteFile(source.c_str());
jieguo=CopyFile(destfile.c_str(),source.c_str(),false);
DataModule1=new TDataModule1(Application);
DataModule1->tiaojian->Open();
DataModule1->dayreport->Open();
DataModule1->Title->Open();
DataModule1->gk90->Open();
DataModule1->ajhc->Open();
DataModule1->ajsb->Open();
DataModule1->dingjian->Open();
DataModule1->fjyb->Open();
DataModule1->bzcyb1->Open();
DataModule1->hours->Open();
DataModule1->md82ctrl->Open();
DataModule1->oil->Open();
//DataModule1=new TDataModule1(Application);
Form2->Close();
control();
fhhourctrl();
gczljk();
Form2->Show();
Form1->Cursor<<crDefault;
}
__finally
{
if(jieguo)
M1->ShowMessage("数据恢复完毕!");
else
M1->ShowMessage("数据恢复失败,请确认目录"+dest+"是否存在。");
}
}
else
{
M1->ShowMessage("对不起,你没有权限。");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N6Click(TObject *Sender)
{
AnsiString dest=bkdir+"backup\\";
bool jieguo;
AnsiString source,destfile;
pass=0;
TForm23 *Form23=new TForm23(Application);
Form23->ShowModal();
delete Form23;
if(edit)
{
try
{
Form1->Cursor=crHourGlass;
source=lujing+"ahc.cds";
destfile=dest+"ahc.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"asb.cds";
destfile=dest+"asb.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"djcontrol.cds";
destfile=dest+"djcontrol.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"gk90.cds";
destfile=dest+"gk90.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"title.cds";
destfile=dest+"title.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"yuebao.cds";
destfile=dest+"yuebao.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"飞机.cds";
destfile=dest+"飞机.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"日报.cds";
destfile=dest+"日报.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"条件.cds";
destfile=dest+"条件.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"apu.txt";
destfile=dest+"apu.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"apusn.txt";
destfile=dest+"apusn.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"lefteng.txt";
destfile=dest+"lefteng.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"plane.txt";
destfile=dest+"plane.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),true);
source=lujing+"righteng.txt";
destfile=dest+"righteng.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"starter.txt";
destfile=dest+"starter.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"hydr82.txt";
destfile=dest+"hydr82.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"hydr90.txt";
destfile=dest+"hydr90.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"oil82.txt";
destfile=dest+"oil82.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"oil90.txt";
destfile=dest+"oil90.txt";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"bzcyb1.cds";
destfile=dest+"bzcyb1.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"hours.cds";
destfile=dest+"hours.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"md82ctrl.cds";
destfile=dest+"md82ctrl.cds";
DeleteFile(destfile.c_str());
jieguo=CopyFile(source.c_str(),destfile.c_str(),false);
source=lujing+"oil.cds";
destfile=dest+"oil.cds";
DeleteFile(destfile.c_str());
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -