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

📄 mainunit.pas

📁 不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
unit MAINUNIT;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus,ComCtrls,Buttons, ExtCtrls,dbtables,StdCtrls, lmdclass,
  lmdformA, lmdctrl, Lmdled, DisplaySwitcher;


type
  TMainForm = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    PB1: TProgressBar;
    MainMenu1: TMainMenu;
    N01: TMenuItem;
    N49: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N94: TMenuItem;
    N104: TMenuItem;
    N105: TMenuItem;
    N106: TMenuItem;
    N107: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    N91: TMenuItem;
    N92: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    N20003: TMenuItem;
    N110: TMenuItem;
    N111: TMenuItem;
    Bevel1: TBevel;
    N1: TMenuItem;
    EXCEL1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    cd: TColorDialog;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N21: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N32: TMenuItem;
    LMDForm1: TLMDForm;
    Image1: TImage;
    Bevel2: TBevel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    dsp2: TDisplaySwitcher;
    procedure FormCreate(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure mouyu1Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SQl1Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N74Click(Sender: TObject);
    procedure N76Click(Sender: TObject);
    procedure N78Click(Sender: TObject);
    procedure N105Click(Sender: TObject);
    procedure N107Click(Sender: TObject);
    procedure N111Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure N83Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure N89Click(Sender: TObject);
    procedure N20003Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N87Click(Sender: TObject);
    procedure N86Click(Sender: TObject);
    procedure N94Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure EXCEL1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N27Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
            private
    { Private declarations }
  public
    { Public declarations }
    procedure wmsyscommand(var msg:Tmessage);message wm_syscommand;

  end;

var
  MainForm: TMainForm;
  var ssss:string;
 const Curs=1;
implementation

uses rxshell,WHUNIT, jjDateunit, gzdata, DataTUnit, KqDayUnit, JsBmXzUnit,
  PassWordUnit, BackUpUnit, AboutUnit, printmainunit, Dateunit, KkDateunit,
  ViewUnit, XgKlUnit, ZjdwUnit, ZjYhUnit, DelUserUnit,
  CssjDateunit, DelGzDateunit, BackckUnit,bdeutils,Tzhdateunit,sjlbunit,cshunit,recunit2,
  ccunit, ShlObj, ActiveX, ComObj, Registry, ZjZdUnit, InputUnit,
  CnDateUnit, ZhiChengXzUnit, TzhPrintUnit, PrintShowUnit, previewt,
  gztunit, KsBmXzUnit, FLBmXzUnit, TcjXzUnit, TjXzUnit, gjjunit, GlZjUnit;

{$R *.DFM}
 {$R curs.res}

procedure tmainform.wmsyscommand(var msg:Tmessage);
var item:Tmenuitem;
begin
item:=mainmenu1.finditem(msg.wparam,fkcommand);
if not(item=nil) then
item.click;
inherited;
end;



procedure TMainForm.FormCreate(Sender: TObject);
 var txyz:file;
     i:integer;
begin
 Screen.Cursors[Curs] := LoadCursor(hInstance,    'CURSOR_1');
  (* 指定 form1 的 cursor 為自訂滑鼠指標 *)
  Cursor := Curs;
  screen.cursor:=Curs;
  appendmenu(getsystemmenu(handle,false),mf_separator,0,'');
  with mainmenu1 do
    for i:=0  to items.count-1 do
     appendmenu(getsystemmenu(self.handle,false),mf_popup,items[I].handle,pchar(items[I].caption));
try
    shortdateformat:='yyyy-mm-dd';
    longdateformat:='yyyy-mm-dd';
    if not (fileexists(ExtractFileDir(Application.EXEName)+'\sx2.txt')) then
    begin
         assignfile(txyz,'sx2.Txt');
         rewrite(txyz);
     end;
  except
     application.MessageBox('发生意外错误,可能是计算机与磁盘不同步,或者是您已经打开了本程序调用的数据库，请立即关闭应用程序,计算机马上要重新启动,请按确定键!!!','警告',mb_ok+mb_iconstop);
     exitwindowsex(EWX_REBOOT,0);
  end;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
  IF  (application.messagebox(pchar('当您的数据不正确时，请运行本过程，进行吗？'),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
     =idcancel) then  abort;
     try
              try
                 datat.Table4.Close;
                 datat.table4.Open;
                 packtable(datat.table4);
                 Application.ProcessMessages;
                 datat.Table1.Close;
                 datat.table1.Open;
                 packtable(datat.table1);
            except
              //   MessageBox(Handle,'致命错误！！！请关闭所有应用程序，重新启动计算机！！！',pchar(caption),Mb_iconstop+Mb_ok);
//                 abort;
            end;
     finally
          datat.table4.close;
          datat.table1.Close;
          application.messagebox('数据清理完毕！！！','消息框',mb_ok+mb_iconinformation);
     end;
 end;



{procedure createlink(programpath,programarg,linkpath,descr:string);
  var
  anobj:iunknown;
  shelllink:ishelllink;
  afile:ipersistfile;
  FileName:WideString;
  begin
    if uppercase(extractfileext(linkpath))<>'.LNK' then
     begin
       raise Exception.Create('快捷方式的扩展名必须是"lnk"!');
       end;
       try
         oleinitialize(nil);
         anobj:=createcomobject(clsid_shelllink);
         shelllink:=anobj as ishelllink;
         afile:=anobj as ipersistfile;
         shelllink.setpath(PChar(programpath));
         shelllink.setarguments(PChar(programarg));
         shelllink.SetDescription(PChar(descr));
         shelllink.SetHotkey(vk_F12);
        // shelllink.SetRelativePath(PChar(programarg),1);
        // shelllink.SetShowCmd(1);
         shelllink.SetWorkingDirectory(PChar(ExtractFileDir(Application.EXEName)));
         FileName:=linkpath;
         afile.Save(pwidechar(FileName),false);
         finally
         oleuninitialize;
         end;
 end;}


procedure TMainForm.Panel2Click(Sender: TObject);
begin
// rxspeedbutton3.GroupIndex:=1;
// popupmenu3.Popup(1,64);
if (datat.unittable1.active)
then ShowMessage('1');
if datat.bmtable2.active
then ShowMessage('2');
if (datat.table1.active)
then ShowMessage('lyk1');
if datat.table2.active
then ShowMessage('ls2');
if datat.table3.active
then ShowMessage('3');
if datat.table4.active
then ShowMessage('4');
if datat.table5.active
then ShowMessage('5');
if datat.table6.active
then ShowMessage('6');

end;

procedure TMainForm.N7Click(Sender: TObject);
var ssss:string;
    i:integer;
begin
{// if backckform=nil then
   Application.CreateForm(Tbackckform,backckform);
   backckform.ShowModal;
   backckform.Hide;
   backckform.Release;}
   for i:=1 to 3 do
  begin
    datat.table1.open;
    datat.Table2.Open;
    datat.Table5.Open;
    if i=1 then
    ssss:='jbkk';
    if i=2 then
    ssss:='sj';
    if i=3 then
    ssss:='kg';
    ssss:='ZJ'+ssss;
              if datat.table1.FindField(ssss)<>nil then
              begin
              application.MessageBox('您已经升级至Beta版！！！','提示',mb_ok+mb_iconinformation);
              datat.table1.close;
              datat.table2.close;
              datat.table5.close;
              data.Query1.Close;
              abort;
              end;
      data.Query1.Close;
      with data.query1 do
        begin
            if datat.Table1.Active then datat.table1.close;
            with sql do
                 begin
                     datat.table1.close;
                     clear;
                     add('alter table "LYK.dbf" add column');
                     add(ssss);
                     add('NUMERIC(10,2)');
                 end;
            ExecSQL;
       end;

      data.Query1.Close;
      with data.query1 do
        begin
            if datat.Table2.Active then datat.table2.close;
            with sql do
                 begin
                     datat.table2.close;
                     clear;
                     add('alter table "printls.dbf" add column');
                     add(ssss);
                     add('NUMERIC(10,2)');
                 end;
            ExecSQL;
       end;

        data.Query1.Close;
      with data.query1 do
        begin
            if datat.Table5.Active then datat.table5.close;
            with sql do
                 begin
                     datat.table5.close;
                     clear;
                     add('alter table "printtemp.dbf" add column');
                     add(ssss);
                     add('NUMERIC(10,2)');
                 end;
            ExecSQL;
       end;
    end;
   application.messagebox('恭喜,恭喜,字段成功的产生完毕!!!','消息框',mb_ok+mb_iconinformation);
   datat.table1.close;
   datat.table2.close;
   datat.table5.close;
   data.Query1.Close;


end;

procedure TMainForm.mouyu1Click(Sender: TObject);
begin
application.messagebox('本模块暂时不提供！！！','消息框',mb_ok+mb_iconstop);
end;

procedure TMainForm.N37Click(Sender: TObject);
begin
  Application.CreateForm(TCcForm,ccform);
  ccform.Showmodal;
  ccform.hide;
  ccform.Release;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  {bmpi:=bmpi+1;
  begin
  if bmpi=21 then bmpi:=1;
  image1.Picture.LoadFromFile(IntToStr(bmpi)+'.bmp');
 // image1.Update;
//  .Refresh;
  end;}
end;

procedure TMainForm.SQl1Click(Sender: TObject);
begin
application.messagebox('本模块暂时不提供！！！只有高级用户才能使用！！！','消息框',mb_ok+mb_iconstop);
end;

procedure TMainForm.N49Click(Sender: TObject);
begin
 try
   Application.CreateForm(TRecForm, RecForm);
   recForm.showmodal;
   recform.Hide;
   recform.Release;
 except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

procedure TMainForm.N53Click(Sender: TObject);
begin
try
    Application.CreateForm(Tcssjdate,cssjdate);
    cssjdate.ShowModal;
    cssjdate.Hide;
    cssjdate.Release;
    except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

procedure TMainForm.N55Click(Sender: TObject);
begin
 try
    Application.CreateForm(TDelGzdate,DelGzdate);
    DelGzdate.ShowModal;
    delgzdate.Hide;
    delgzdate.Release;
  except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

procedure TMainForm.N57Click(Sender: TObject);
begin
try
//if dater=nil then
 Application.CreateForm(Tdater,dater);
 dater.showmodal;
 dater.Hide;
 dater.Release;
 except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
123

⌨️ 快捷键说明

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