u_htgl.pas

一套完整的合同管理系统,大家可以下载来看一看

begin
dr2:=0;
application.CreateForm(Tfrm_mccx,frm_mccx);
frm_mccx.ShowModal;
frm_mccx.Free;
end;

procedure Tfrm_main.N25Click(Sender: TObject);
begin
application.CreateForm(Tfrm_dwxx,frm_dwxx);
frm_dwxx.ShowModal;
frm_dwxx.Free;
end;

procedure Tfrm_main.SpeedButton3Click(Sender: TObject);
begin
with data1.ADOQuery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同');
   open;
end;
   rvproject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'htqd';
   rvproject1.Execute;   
end;

procedure Tfrm_main.N18Click(Sender: TObject);
begin
frm_main.dr2:=0;
application.CreateForm(Tfrm_drht,frm_drht);
frm_drht.ShowModal;
frm_drht.Free; 
end;

procedure Tfrm_main.TreeView1DblClick(Sender: TObject);
begin
if dr2<>1 then
begin
with data1.ADOPublic do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同 where htmc=:c');
   parameters.ParamByName('c').Value:=treeview1.Selected.Text;
   open;
end;
path:=data1.ADOPublic.fieldbyname('htlj').Value;
if Wordpath(path) then
OpenWordFile('True',path,WordApplication1,WordDocument1)
else
application.MessageBox('文件不存在，请检查设置','提示',64);
end
else
begin
   path:= hsz_path + '\' + treeview1.Selected.Text;
   if wordpath(path) then
   openwordfile('tree',path,wordapplication1,worddocument1);
end;
end;

procedure Tfrm_main.ListView1DblClick(Sender: TObject);
var
path:string;
begin
with data1.ADOPublic do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同 where htmc=:c');
   parameters.ParamByName('c').Value:=listview1.Selected.Caption;
   open;
end;
path:=data1.ADOPublic.fieldbyname('htlj').Value;
OpenWordFile('True',path,WordApplication1,WordDocument1);
end;

procedure Tfrm_main.N17Click(Sender: TObject);
begin
application.CreateForm(Tfrm_lxsz,frm_lxsz);
frm_lxsz.ShowModal;
frm_lxsz.Free;
end;

procedure Tfrm_main.SpeedButton4Click(Sender: TObject);
begin
dr2:=1;
loaddata_zf;
end;

procedure Tfrm_main.N11Click(Sender: TObject);
begin
dr2:=1;
application.CreateForm(Tfrm_lx,frm_lx);
frm_lx.ShowModal;
frm_lx.Free;
end;

procedure Tfrm_main.N12Click(Sender: TObject);
begin
application.CreateForm(Tfrm_htsy,frm_htsy);
frm_htsy.ShowModal;
frm_htsy.Free;
end;

procedure Tfrm_main.N26Click(Sender: TObject);
begin
application.CreateForm(Tfrm_htxg,frm_htxg);
frm_htxg.ShowModal;
frm_htxg.Free;
end;

procedure Tfrm_main.N13Click(Sender: TObject);
begin
application.CreateForm(Tfrm_htqd,frm_htqd);
frm_htqd.ShowModal;
frm_htqd.Free;
end;

procedure Tfrm_main.N14Click(Sender: TObject);
begin
frm_main.cx:=1;
application.CreateForm(Tfrm_htcx,frm_htcx);
frm_htcx.ShowModal;
frm_htcx.Free;
end;

procedure Tfrm_main.N21Click(Sender: TObject);
begin
dcx:='过期';
application.CreateForm(Tfrm_cx,frm_cx);
frm_cx.ShowModal;
frm_cx.Free;
end;

procedure Tfrm_main.N22Click(Sender: TObject);
begin
application.CreateForm(Tfrm_cx,frm_cx);
frm_cx.ShowModal;
frm_cx.Free;
end;

procedure Tfrm_main.SpeedButton9Click(Sender: TObject);
begin
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'退出系统');
application.Terminate;
end;

procedure Tfrm_main.Skin_Change();
 var I:integer;
  begin
   if g_str_skinpath='' then exit;
    //if  wordpath(g_str_skinpath+'1.jpg') then
        //if  wordpath(g_str_skinpath+'2.jpg') then
           //if  wordpath(g_str_skinpath+'3.jpg') then
              //if  wordpath(g_str_skinpath+'4.jpg') then
                 //begin
                     //if trim(g_str_skinname)='1' then statusBar1.Color:=16768960;  //
                     {if trim(g_str_skinname)='2' then self.Color:=11843583;  //
                    if trim(g_str_skinname)='3' then self.Color:=12640254;  //
                     if trim(g_str_skinname)='4' then self.Color:=7864271;  //}


                      image1.Picture.LoadFromFile(g_str_skinpath+'1.jpg');
                      image2.Picture.LoadFromFile(g_str_skinpath+'2.jpg');
                      image3.Picture.LoadFromFile(g_str_skinpath+'3.jpg');
                    //imright.Picture.LoadFromFile(g_str_skinpath+'4.jpg');
                 //end;

          {sta.Panels.Items[0].Width:=trunc(self.Width/3);
          sta.Panels.Items[1].Width:=trunc(self.Width/3);
          sta.Panels.Items[2].Width:=trunc(self.Width/3);
          sta.Panels[0].Text:=g_str_sygs;
          sta.Panels[1].Text:='登录人：'+g_str_name;
          sta.Panels[2].Text:='登录时间' +datetimetostr(now);}
  end;

procedure Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'退出系统');
end;

procedure Tfrm_main.N16Click(Sender: TObject);
begin
zf:=1;
application.CreateForm(Tfrm_cx,frm_cx);
frm_cx.ShowModal;
frm_cx.Free;
end;

procedure Tfrm_main.N6Click(Sender: TObject);
begin
application.CreateForm(Tfrm_czygl,frm_czygl);
frm_czygl.ShowModal;
frm_czygl.Free;
end;

procedure Tfrm_main.N110Click(Sender: TObject);
begin
   exec_sql('update skin set mc='+quotedstr('1'));
   Skinload();
   Skin_Change();
   Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'更换界面');
end;

procedure Tfrm_main.N27Click(Sender: TObject);
begin
   exec_sql('update skin set mc='+quotedstr('2'));
   Skinload();
   Skin_Change();
   Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'更换界面');
end;

procedure Tfrm_main.N31Click(Sender: TObject);
begin
   exec_sql('update skin set mc='+quotedstr('3'));
   Skinload();
   Skin_Change();
   Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'更换界面');
end;

procedure Tfrm_main.N10Click(Sender: TObject);
begin
popupmenu1.Popup(0,100);
end;

procedure Tfrm_main.N7Click(Sender: TObject);
var
save:string;
begin
savedialog1.Filter:='备份文件(*.bak)|*.bak';
savedialog1.Title:='请选择备份路径';
if savedialog1.Execute then
   begin
      save:=savedialog1.FileName;
   end;
if save<>'' then
   begin
      with data1.ADOpublic do
         begin
            try
            screen.Cursor:=crHourGlass;
            close;
            sql.Clear;
            sql.Add(' BACKUP DATABASE '+'pact'+ '  TO DISK =''' +save+'''');
            execsql;
            screen.Cursor:=crdefault;
            application.MessageBox('数据备份成功','提示',0+64);
            Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'数据备份');
            except
            screen.Cursor:=crdefault;
            application.MessageBox('数据库备份失败，请检查备份的路径或网络状态！','数据库备份',0+mb_iconinformation);
            end;
         end;
   end;
end;


procedure Tfrm_main.N8Click(Sender: TObject);
var
save:string;
begin
data1.AC.Close;
data1.AC.Connected:=false;
//opendialog1.Filter:='备份文件(*.bak)|(*.bak)';
opendialog1.Title:='请选择恢复文件路径和文件名';
if opendialog1.Execute then
  save:=opendialog1.FileName;
  if save<>'' then
     begin
        with data1.ADOpublic do
           begin
              try
              screen.Cursor:=crhourglass;
              close;
              sql.Clear;
              SQL.Add('use master restore  DATABASE pact from DISK =''' +save+'''');
              execsql;
              screen.Cursor:=crdefault;
              application.MessageBox('数据库恢复成功完成！','数据恢复',0+mb_iconinformation);
              sql.Clear;
              sql.Add('use pact');
              execsql;
              Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'数据还原');
              except
                 screen.Cursor:=crdefault;
                 application.MessageBox('数据库恢复失败，请检查备份的路径或网络状态！','数据恢复',0+mb_iconinformation);
              end;
           end;
     end;
end;


procedure Tfrm_main.N9Click(Sender: TObject);
begin
application.CreateForm(Tfrm_rz,frm_rz);
frm_rz.ShowModal;
frm_rz.Free;
end;

procedure Tfrm_main.N19Click(Sender: TObject);
begin
frm_main.cx:=0;
application.CreateForm(Tfrm_htcx,frm_htcx);
frm_htcx.ShowModal;
frm_htcx.Free;
end;

procedure Tfrm_main.N20Click(Sender: TObject);
begin
frm_main.cx:=0;
application.CreateForm(Tfrm_htcx,frm_htcx);
frm_htcx.ShowModal;
frm_htcx.Free;
end;

end.