mainfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 809 行 · 第 1/2 页

PAS
809 行
字号
12
procedure Tmain.N30Click(Sender: TObject);
begin
application.CreateForm(tyjgh,yjgh);
try
  yjgh.ShowModal;
finally
  yjgh.Free;
end;
end;

procedure Tmain.O1Click(Sender: TObject);
begin
application.CreateForm(tdbdgl,dbdgl);
try
  dbdgl.ShowModal;
finally
  dbdgl.Free;
end;
end;

procedure Tmain.J2Click(Sender: TObject);
begin
application.CreateForm(tcjdgl,cjdgl);
try
  cjdgl.ShowModal;
finally
  cjdgl.Free;
end;
end;

procedure Tmain.N33Click(Sender: TObject);
begin
application.CreateForm(tgrjyyj,grjyyj);
try
  grjyyj.ShowModal;
finally
  grjyyj.Free;
end;
end;

procedure Tmain.N28Click(Sender: TObject);
begin
application.CreateForm(tkcyj,kcyj);
try
  kcyj.ShowModal;
finally
  kcyj.Free;
end;
end;

procedure Tmain.N32Click(Sender: TObject);
begin
application.CreateForm(tdwyj,dwyj);
try
  dwyj.ShowModal;
finally
  dwyj.Free;
end;
end;

procedure Tmain.N41Click(Sender: TObject);
begin
application.CreateForm(tdwqk,dwqk);
try
  dwqk.ShowModal;
finally
  dwqk.Free;
end;
end;

procedure Tmain.N45Click(Sender: TObject);
begin
application.CreateForm(tyfzl,yfzl);
try
  yfzl.ShowModal;
finally
  yfzl.Free;
end;
end;

procedure Tmain.N43Click(Sender: TObject);
begin
application.CreateForm(tyffd,yffd);
try
  yffd.ShowModal;
finally
  yffd.Free;
end;
end;

procedure Tmain.N56Click(Sender: TObject);
begin
application.CreateForm(tyfsb,yfsb);
try
  yfsb.ShowModal;
finally
  yfsb.Free;
end;
end;

procedure Tmain.N59Click(Sender: TObject);
begin
application.CreateForm(tgx,gx);
try
  gx.ShowModal;
finally
  gx.Free;
end;
end;

procedure Tmain.N60Click(Sender: TObject);
begin
application.CreateForm(tguolu,guolu);
try
  guolu.ShowModal;
finally
  guolu.Free;
end;
end;

procedure Tmain.N63Click(Sender: TObject);
begin
application.CreateForm(txjyf,xjyf);
try
  xjyf.ShowModal;
finally
  xjyf.Free;
end;
end;

procedure Tmain.N44Click(Sender: TObject);
begin
application.CreateForm(tyfda,yfda);
try
  yfda.ShowModal;
finally
  yfda.Free;
end;
end;

procedure Tmain.N62Click(Sender: TObject);
begin
application.CreateForm(tyfwz,yfwz);
try
  yfwz.ShowModal;
finally
  yfwz.Free;
end;
end;

procedure Tmain.N61Click(Sender: TObject);
begin
application.CreateForm(tdt,dt);
try
  dt.ShowModal;
finally
  dt.Free;
end;
end;

procedure Tmain.D1Click(Sender: TObject);
begin
application.CreateForm(tyfwx,yfwx);
try
  yfwx.ShowModal;
finally
  yfwx.Free;
end;
end;

procedure Tmain.D2Click(Sender: TObject);
begin
application.CreateForm(twxgl,wxgl);
try
  wxgl.ShowModal;
finally
  wxgl.Free;
end;
end;

procedure Tmain.N36Click(Sender: TObject);
begin
application.CreateForm(tdatabf,databf);
try
  databf.ShowModal;
finally
  databf.Free;
end;
end;

procedure Tmain.N37Click(Sender: TObject);
begin
application.CreateForm(tsjhf,sjhf);
try
  sjhf.ShowModal;
finally
  sjhf.Free;
end;
end;

procedure Tmain.N34Click(Sender: TObject);
begin
application.CreateForm(tchshh,chshh);
try
  chshh.ShowModal;
finally
  chshh.Free;
end;
end;

procedure Tmain.N39Click(Sender: TObject);
begin
application.CreateForm(tsjsb,sjsb);
try
  sjsb.ShowModal;
finally
  sjsb.Free;
end;
end;

procedure Tmain.N40Click(Sender: TObject);
begin
application.CreateForm(tsjjs,sjjs);
try
  sjjs.ShowModal;
finally
  sjjs.Free;
end;
end;

procedure Tmain.N14Click(Sender: TObject);
begin
shellexecute(main.Handle,'open',pchar(ExtractFilePath(Application.ExeName)+'yfglhlp.chm'),nil,nil,sw_normal);
end;

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if messagebox(main.Handle,'确认要退出本系统吗？','营房工作管理系统',33)=1 then
    begin
      Timer1.Free;
      yfgldata.Free;   
      ListBox1.Items.Clear;
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_cjd.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_cjd1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_dt.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_dw.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_dwqk.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_dwsdf.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_dwsdfhz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_dwyj.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_dwyj1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_grjyyj.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_grjyyj1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_guolu.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_gx.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_kcyj.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_kcyj1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_sdbz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_sdf.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_sdfbz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_sdjg.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_sdyh.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_wx.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_wxwz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_wxwz1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_xjyf.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yfda.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yffd.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yfsb.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yfwz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yfzl.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yhsdfhz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yj.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yj1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yjdb.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yjdb1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yjhz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yjhz1.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yjtemp.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_yjzl.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data\yfgl_zjxhde.*');
      if not BackupFile1.Backup(listbox1.items, 'yfglr.dll') then  //存储系统数据文件
        messagebox(application.handle,'数据存储过程发生错误。','营房工作管理系统',16);
      ListBox1.Items.Clear;
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_dt.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_dwqk.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_guolu.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_gx.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_xjyf.*');;
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_yfda.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_yffd.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_yfsb.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_yfwz.*');
      ListBox1.Items.Add(extractfilepath(application.ExeName)+'data0\yfgl_yfzl.*');
      if not BackupFile2.Backup(listbox1.items, 'yfglb.dll') then  //存储系统数据文件
        messagebox(application.handle,'数据存储过程发生错误。','营房工作管理系统',16);
      //退出系统时，删除所有数据文件
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_cjd.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_cjd.mb');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_cjd1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dt.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dt.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dw.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dw.mb');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dw.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dw.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwqk.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwqk.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwqk.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwsdf.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwsdf.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwsdfhz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwsdfhz.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwyj.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwyj.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwyj1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_dwyj1.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_grjyyj.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_grjyyj.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_grjyyj1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_guolu.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_guolu.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_gx.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_gx.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_kcyj.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_kcyj.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_kcyj1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdbz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdbz.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdbz.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdf.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdf.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdfbz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdfbz.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdjg.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdjg.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdyh.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdyh.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_sdyh.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_wx.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_wx.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_wxwz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_wxwz.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_wxwz1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_wxwz1.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_xjyf.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_xjyf.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfda.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfda.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yffd.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yffd.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfsb.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfsb.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfwz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfwz.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfzl.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yfzl.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yhsdfhz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yhsdfhz.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yj.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yj1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yj1.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjdb.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjdb.mb');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjdb1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjhz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjhz1.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjtemp.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjzl.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjzl.px');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_yjzl.val');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_zjxhde.db');
      DeleteFile(extractfilepath(application.ExeName)+'data\yfgl_zjxhde.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_dt.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_dt.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_dt.xg0');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_dt.yg0');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_dwqk.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_dwqk.px');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_dwqk.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_guolu.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_guolu.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_gx.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_gx.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_xjyf.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_xjyf.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfda.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfda.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yffd.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yffd.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfsb.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfsb.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfwz.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfwz.val');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfzl.db');
      DeleteFile(extractfilepath(application.ExeName)+'data0\yfgl_yfzl.val');
      action:=cafree; //释放窗体
    end
  else
    action:=canone;
end;

end.
12

mainfrm.pas - 源码说明

本页面展示了「本人编写的有关军队营房工作的管理系统」中的 mainfrm.pas 源码文件，采用 PAS 编程语言编写，共 809 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与编写相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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