mainunit.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

procedure TMainForm.N76Click(Sender: TObject);
begin
try
//if DwBmForm=nil then
   Application.CreateForm(TDwBmForm,DwBmForm);
   DwbmForm.ShowModal;
   dwbmform.Release;
   except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

procedure TMainForm.N78Click(Sender: TObject);
begin
  passd:=1;
  password.ShowModal;
end;

procedure TMainForm.N105Click(Sender: TObject);
begin
Application.CreateForm(Tbackckform,backckform);
   backckform.ShowModal;
   backckform.Hide;
   backckform.Release;
end;

procedure TMainForm.N107Click(Sender: TObject);
begin
  Application.CreateForm(Tbackup,backup);
   backup.ShowModal;
   backup.Hide;
   backup.Release;
end;

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

procedure TMainForm.N82Click(Sender: TObject);
begin
Application.CreateForm(Txgklform,xgklform);
   xgklform.ShowModal;
   xgklform.Hide;
   xgklform.Release;
end;

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

procedure TMainForm.N84Click(Sender: TObject);
begin
try
  // if delUserForm=nil then
   Application.CreateForm(TDelUserForm,DelUserForm);
   DelUserForm.ShowModal;
   DelUserForm.Release;
   DelUserForm.Release;
   except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

procedure TMainForm.N89Click(Sender: TObject);
var
  MyObject : IUnknown;
  MySLink : IShellLink;
  MyPFile : IPersistFile;
  FileName : String;
  Directory : String;
  WFileName : WideString;
  MyReg : TRegIniFile;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  FileName := paramstr(0);
  with MySLink do begin
//  SetArguments('C:\AUTOEXEC.BAT');
    SetPath(pchar(FileName));     // 1999.4.9, as bug before!
    SetHotkey(vk_F11);
//    SetHotKey(512+1024+word('R'));// Ctrl+Alt+R       SetPath(PChar(FileName));
    SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  end;
  MyReg := TRegIniFile.Create(
        'Software\MicroSoft\Windows\CurrentVersion\Explorer');
  case (sender as TComponent).tag of
    // 在桌面上生成快捷图标
    0:Directory := MyReg.ReadString('Shell Folders','Desktop','');
    // 在Start Menu中加入相应的ShortCut
    1:Directory := MyReg.ReadString('Shell Folders','Start Menu','');
    // 在'发送到'中加入相应的ShortCut
    2:Directory := MyReg.ReadString('Shell Folders','SendTo','');
  end;

  WFileName := Directory+'\龙口矿务局工资系统 2000.lnk';
  MyPFile.Save(PWChar(WFileName),False);
  MyReg.free;
  application.messagebox('成功的创建！！！','消息框',mb_ok+mb_iconinformation);
end;
procedure TMainForm.N20003Click(Sender: TObject);
var x:Cardinal;
begin
application.messagebox('请将短日期、长日期样式均修改为 yyyy-MM-dd，以此避免2000年问题，请注意大小写！！！','消息框',mb_ok+mb_iconinformation);

x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9);
if x=0 then messagebox(0,'程序超出内存','错误',0);
if x=ERROR_BAD_FORMAT then messagebox(0,'该程序非一个合法的Win32.EXE程序).','错误',0);
if x=ERROR_FILE_NOT_FOUND then messagebox(0,'指定文件没找到','错误',0);
if x=ERROR_PATH_NOT_FOUND then messagebox(0,'指定路径没找到','错误',0);
end;
procedure TMainForm.N51Click(Sender: TObject);
begin
 try
   Application.CreateForm(Tview, view);
   view.showmodal;
   view.Hide;
   view.Release;
 except
   Application.MessageBox('数据发生错误！！！请运行<数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

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

procedure TMainForm.N86Click(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 TMainForm.N94Click(Sender: TObject);
begin
try
  try
  if datat.Table1.Active then
  datat.table1.Close;
  if datat.Table4.Active then
  datat.table4.Close;
  if datat.BmTable2.Active then
  datat.BmTable2.Close;
  if datat.UnitTable1.Active then
  datat.UnitTable1.Close;
except
   MessageBox(Handle,'致命错误！！！请关闭所有应用程序，重新启动计算机！！！',pchar(caption),Mb_iconstop+Mb_ok);
   abort;
end;
finally
     application.messagebox('数据写入完毕！！！','消息框',mb_ok+mb_iconinformation);
end;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   IF  (application.messagebox('确认退出吗?','消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
   =idok) then
    begin
       session.RemovePassword('fnblkzydlk');
        password.table1.Edit;
        password.table1.Append;
        password.table1.fieldbyname('dt').asstring:=datetimetostr(now);
        password.table1.fieldbyname('zt').asstring:='正常退出';
        password.table1.FieldByName('user').asstring:=password.dbc1.Text;
        password.Table1.Post;
        password.Table1.Close;

        datat.Table1.Close;
        datat.Table2.Close;
        datat.Table3.Close;
        datat.Table4.Close;
        datat.Table5.Close;
        datat.Table6.Close;
        datat.UnitTable1.Close;
        datat.BmTable2.Close;

        //mainform.hide;
        //password.Hide;
        password.Release;
        data.free;
        datat.free;
        canclose:=true;
  //      close;
        mainform.Hide;
        application.Terminate;
     end
   else
   canclose:=false;
     end;




procedure TMainForm.EXCEL1Click(Sender: TObject);
var V:variant;
s,t:string;
i,j:integer;
begin
try
 V := CreateOleObject('Excel.application');
 v.workbooks.add;
 V.Visible := True;
 v.workbooks.open['c:\gz 2000\book1.xls'];
// v.activesheet.columns[4].insert;
// v.worksheets['sheet3'].Activate;
 v.caption:='第一个Excel示例，请提出修改意见！！！';
 datat.table4.open;
 datat.table4.First;
 datat.Table4.DisableControls;
 j:=datat.table4.RecordCount;
 t:=datetostr(date);
 for i:=0 to 5 do
 begin
 s:=datat.table4.fieldbyname('name').asstring;
 v.cells[i+3,1].value:=s;
 v.cells[i+3,1].font.name:='幼圆';
 v.cells[i+3,1].font.size:=12;
 s:='';
 s:=datat.table4.fieldbyname('bz_gw').asstring;
 v.cells[i+3,2].value:=s;
 s:=datat.table4.fieldbyname('bz_jn').asstring;
 v.cells[i+3,3].value:=s;
 v.cells[i+3,4].value:=datat.table4.fieldbyname('bz_jn').asfloat+datat.table4.fieldbyname('bz_gw').asfloat;
 v.cells[i+3,5].value:=v.cells[i+3,2].value+v.cells[i+3,3].value;
 //v.cells[i+3,4].value:='';
// v.cells[i+3,5].value:='35';
// v.activesheet.printout;
 datat.table4.next;
 end;
 v.activesheet.printpreview;
 datat.table4.DisableControls;
 datat.table4.Close;
// v.activesheet.printpreview;
// v.activeworkbook.saveas();
 //v.quit;
 except
    v.quit;
 end;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
     application.CreateForm(Tzjzdform,zjzdform);
     zjzdform.showmodal;
     zjzdform.Release;
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
     if cd.Execute then
     panel2.Color:=cd.Color;
end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=vk_escape then
    begin
    mainform.Hide;
    application.Terminate;
    end;
    // close;
end;








procedure TMainForm.N9Click(Sender: TObject);
begin
     application.CreateForm(TCnDateForm,CnDateForm);
     CnDateForm.showmodal;
     CndateForm.release;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
     mainform.hide;
     application.Terminate;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
     winabout('--龙口矿务局工资系统 2000--',#13+#10+'中心医院范宁波开发'#13+#10+#13+#10+'联系电话：88--28152');
end;

procedure TMainForm.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
{    if datat=nil then
    begin
     Application.CreateForm(TInputForm, InputForm);
     Application.CreateForm(Tdata, data);
     Application.CreateForm(TDataT, DataT);
    end;} 
end;

procedure TMainForm.N27Click(Sender: TObject);
begin
Application.MessageBox('执行本打印程序请按以下步骤:1.双击桌面上的《我的电脑》图标。2.双击《打印机》图标。3.选中某个打印机，单击鼠标右键，单击《属性》。4.选择《纸张》－>《自定义》－>宽度3454,长度2800,单位0.1毫米。5.单击《确定》退出.注:目前不支持激光打印机.打印纸张规格为381MM.','提示',mb_ok+mb_iconinformation);
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
Application.CreateForm(Tgzt,gzt);
gzt.showmodal;
gzt.Hide;
gzt.release;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
Application.CreateForm(Tksbmxz,ksbmxz);
ksbmxz.showmodal;
ksbmxz.Hide;
ksbmxz.release;
end;

procedure TMainForm.N29Click(Sender: TObject);
begin
Application.CreateForm(Tzhichengxz, zhichengxz);
 zhichengxz.showmodal;
 zhichengxz.Hide;
 zhichengxz.release;
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
Application.CreateForm(Tflbmxz,flbmxz);
flbmxz.showmodal;
flbmxz.Hide;
flbmxz.release;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
    Application.CreateForm(Ttzhprintform,tzhprintform);
     datat.table6.Open;
     tzhprintform.QuickRep1.Preview;
     tzhprintform.release;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
Application.CreateForm(Ttcjxz,tcjxz);
     tcjxz.ShowModal;
     tcjxz.Hide;
     tcjxz.release;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
Application.CreateForm(Ttjxz,tjxz);
     tjxz.ShowModal;
     tjxz.Hide;
     tjxz.release;
end;

procedure TMainForm.N22Click(Sender: TObject);
var ddd:string;
    kk:integer;
begin
    if printshowform=nil then
       Application.CreateForm(TPrintShowForm, PrintShowForm);

    kk:=0;
    ddd:='';
    ddd:=password.maskedit1.text+'-'+inttostr(strtoint(password.edit4.text));

    IF  (application.messagebox(pchar('您所选择的打印数据是:  '+ddd+'月,正确吗?'),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
     =idcancel) then  abort;

    data.Query1.Close;
    PrintShowForm.Show;
    PrintShowForm.Label1.Caption:='正在处理数据请稍候...';
    printshowForm.Label1.Update;
    PrintShowForm.Update;

with data.Query1.SQL do
   begin
    PrintShowForm.Label1.Caption:='正在处理数据请稍候...';
    printshowForm.Label1.Update;
    clear;
    add('select * from lyk.dbf');
    add('where riqi='''+ddd+'''');
    add('order by gjm ');
  end;

     data.Query1.Open;

     if data.query1.isempty then
     begin
       ddd:=ddd+'数据不存在,请重新选择日期或者重新生成本月数据!!!';
       printshowform.Hide;
       application.messagebox(pchar(ddd),'消息框',mb_ok+mb_iconinformation);
       data.Query1.Close;
       abort;
     end;//判断数据

     Application.CreateForm(Tgjj, gjj);

     printshowform.Hide;
     gjj.quickrep1.preview;
     prev.release;

     printshowform.close;
     gjj.release;
end;
procedure TMainForm.N32Click(Sender: TObject);
begin
    application.CreateForm(TGlform,glform);
    GlForm.showmodal;
    glForm.release;
end; 

procedure TMainForm.FormResize(Sender: TObject);
begin
     mainform.Height:=dsp2.CurrentHeight;
     mainform.Width:=dsp2.CurrentWidth;
     mainform.Left:=0;
     mainform.Top:=0;
     mainform.WindowState:=wsmaximized;
end;

end.