⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 apuedit.cpp

📁 民航飞机生产管理系统,实现了飞机定检坚控,小时卡起落卡等的坚控,并能生成工作任务包
💻 CPP
字号:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "apuedit.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinForms"
#pragma link "KsSkinLabels"
#pragma link "KsSkinPanels"
#pragma link "ksskinstdcontrol"
#pragma link "KsSkinTabs"
#pragma link "se_controls"
#pragma resource "*.dfm"
TForm20 *Form20;
extern AnsiString lujing;
//---------------------------------------------------------------------------
__fastcall TForm20::TForm20(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm20::FormCreate(TObject *Sender)
{
  Memo1->Lines->LoadFromFile(lujing+"plane.txt");
  Memo2->Lines->LoadFromFile(lujing+"apu.txt");
  Memo3->Lines->LoadFromFile(lujing+"starter.txt");
   Memo4->Lines->LoadFromFile(lujing+"lefteng.txt");
  Memo5->Lines->LoadFromFile(lujing+"righteng.txt");
  Memo6->Lines->LoadFromFile(lujing+"apusn.txt");

}
//---------------------------------------------------------------------------
void __fastcall TForm20::Button1Click(TObject *Sender)
{
Memo1->Lines->SaveToFile(lujing+"plane.txt");
Memo2->Lines->SaveToFile(lujing+"apu.txt");
Memo3->Lines->SaveToFile(lujing+"starter.txt");
Memo4->Lines->SaveToFile(lujing+"lefteng.txt");
Memo5->Lines->SaveToFile(lujing+"righteng.txt");
Memo6->Lines->SaveToFile(lujing+"apusn.txt");

Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm20::Button2Click(TObject *Sender)
{
 Memo1->Lines->LoadFromFile(lujing+"plane.txt");
  Memo2->Lines->LoadFromFile(lujing+"apu.txt");
  Memo3->Lines->LoadFromFile(lujing+"starter.txt");
  Memo4->Lines->LoadFromFile(lujing+"lefteng.txt");
  Memo5->Lines->LoadFromFile(lujing+"righteng.txt");
  Memo6->Lines->LoadFromFile(lujing+"apusn.txt");

}
//---------------------------------------------------------------------------

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -