cgmain.pas

一个信息查询系统,主要功能文件上传下载,信息浏览,打印等

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 ttt:boolean;
begin
    try
  threadr.terminate;
  except
  ;
  end;
   tempquery2.close;
  tempquery2.free;
  tempquery1.close;
  tempquery1.free;
   tempquery.Close;
   tempquery.Free;
   temptable.Close;
   temptable.Free;
 if fdatabase<>nil then
 begin
  session.CloseDatabase(fdatabase);
  fdatabase.Free;
 end;
 ttt:=CompactDatabase(extractfilepath(paramstr(0))+'\database\cgclient.mdb','crpeng');
end;

procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
  form1.StatusBar1.Panels[1].Text:='程序执行查询得到结果：'+inttostr(form1.Query1.RecordCount)+' 条记录';
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
      form1.Query1.Close;
     form1.Query1.SQL.Clear;
     form1.Query1.SQL.Add('select * from wf_zl_info where tzshm='''+''+'''');
     form1.Query1.Open;
  form3.panel1.Visible:=true;
  form2.Panel1.Visible:=false; 
  form3.datetimepicker1.Date:=date;
  form3.datetimepicker2.Date:=date;
  form3.datetimepicker3.Date:=date;
  form3.datetimepicker4.Date:=date;
  form3.datetimepicker5.Date:=date;
  form3.datetimepicker6.Date:=date;
  form3.datetimepicker7.Date:=date;
  form3.datetimepicker8.Date:=date;
  form3.datetimepicker9.Date:=date;
  form3.datetimepicker10.Date:=date;
  form3.datetimepicker11.Date:=date;
  form3.datetimepicker12.Date:=date;
  form3.datetimepicker13.Date:=date;
  form3.datetimepicker14.Date:=date;
  //初始化显示栏
   OKBottomDlg1.CheckBox10.Checked:=true;
   OKBottomDlg1.CheckBox10.Checked:=false;
   OKBottomDlg1.CheckBox11.Checked:=true;
   OKBottomDlg1.CheckBox12.Checked:=true;
   OKBottomDlg1.CheckBox1.Checked:=true;
   OKBottomDlg1.CheckBox2.Checked:=true;
   OKBottomDlg1.CheckBox3.Checked:=true;
   OKBottomDlg1.CheckBox4.Checked:=true;
   OKBottomDlg1.CheckBox6.Checked:=true;
   ///////////////////////
  form3.panel1.Parent:=form1.panel1.Parent;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
  OKBottomDlg2.showmodal;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    timer1.Enabled:=false;
    OKBottomDlg2:=TOKBottomDlg2.create(application);
    tempquery.Close;
    tempquery.SQL.Clear;
    tempquery.SQL.Add('select * from users');
    tempquery.open;
    okbottomdlg2.Edit2.Clear;
    okbottomdlg2.ComboBox1.Clear;
    if form1.tempquery.RecordCount>0 then
    while not form1.tempquery.Eof do
    begin
    OKBottomDlg2.ComboBox1.Items.Add(form1.tempquery['xm']);
    form1.tempquery.Next;
    end;

    OKBottomDlg2.ShowModal;
    toolbutton6.Enabled:=true;

end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
   OKBottomDlg3.edit1.clear;
   OKBottomDlg3.edit2.clear;
   OKBottomDlg3.edit3.clear;
   OKBottomDlg3.ShowModal;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
   OKBottomDlg4.Edit1.Enabled:=true;
   OKBottomDlg4.Edit2.Enabled:=false;
   OKBottomDlg4.Edit3.Enabled:=false;
   OKBottomDlg4.Edit4.Enabled:=false;
   OKBottomDlg4.Edit5.Enabled:=false;
   okbottomdlg4.ComboBox1.Enabled:=false;
   okbottomdlg4.DateTimePicker1.Enabled:=false;
   okbottomdlg4.CheckBox1.Enabled:=false;
   OKBottomDlg4.Edit1.Clear;
   OKBottomDlg4.Edit2.Clear;
   OKBottomDlg4.Edit3.Clear;
   OKBottomDlg4.Edit4.Clear;
   OKBottomDlg4.ComboBox1.Text:='';
   OKBottomDlg4.DateTimePicker1.Date:=date;
    OKBottomDlg4.SpeedButton1.Enabled:=false;
   OKBottomDlg4.showmodal;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
   OKRightDlg1.showmodal;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
  if  form1.ADOConnection1.Connected=false then
  begin

    ////////写库线程启动
   threadr:=tmythread.create();
   threadr.Priority:=tplowest;    //线程的优先级
   ////////写库线程退出
   threadr.OnTerminate:=threadrdone;
   end;
end;
procedure TForm1.threadrdone(sender:tobject);
begin
 form1.Query1.Close;
 form1.ADOConnection1.Connected:=false;
 form1.ADOConnection1.Close;
 form1.StatusBar1.Panels[2].Text:='远程数据库已断开连接------>上传完成';
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
   OKBottomDlg5.showmodal;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
  toolbutton9.Click;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
    toolbutton1.Click;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
    toolbutton2.Click;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
     toolbutton3.Click;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
    toolbutton4.Click;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
   toolbutton10.Click;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
   toolbutton5.Click;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
        form1.tempquery.close;
        form1.tempquery.SQL.Clear;
        form1.tempquery.SQL.Add('delete from zl_temp ');
        form1.tempquery.ExecSQL;
        OKBottomDlg8.showmodal;

end;

procedure TForm1.N23Click(Sender: TObject);
begin
  try
  threadr.terminate;
  except
  ;
  end;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
   form3.datetimepicker1.Date:=date;
   form3.datetimepicker2.Date:=date;
   
   OKBottomDlg9.showmodal;
end;

procedure TForm1.N26Click(Sender: TObject);
begin

  OKBottomDlg11.showmodal;
end;
function TForm1.CompactDatabase(AFileName,APassWord:string):boolean;
//压缩与修复数据库,覆盖源文件
var
 STempFileName:string;
 vJE:OleVariant;
begin
 STempFileName:=GetTempPathFileName;
 try
   vJE:=CreateOleObject('JRO.JetEngine');
   vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
       format(SConnectionString,[STempFileName,APassWord]));
   result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
   DeleteFile(STempFileName);
 except
   result:=false;
 end;
end;
function TForm1.GetTempPathFileName():string;
//取得临时文件名
var
 SPath,SFile:array [0..254] of char;
begin
 GetTempPath(254,SPath);
 GetTempFileName(SPath,'~SM',0,SFile);
 result:=SFile;
 DeleteFile(PChar(result));
end;

procedure TForm1.threadddone(sender:tobject);
begin
 form1.Query1.Close;
 form1.ADOConnection1.Connected:=false;
 form1.ADOConnection1.Close;
 form1.StatusBar1.Panels[2].Text:='远程数据库已断开连接------>下载完成';
end;
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
  if application.MessageBox(pchar('是否进行下载？'),'提示',mb_yesno)=6 then
    begin
    PasswordDlg.showmodal;
    if passworddlg.Password.Text<>'19881212101807' then
    begin
    application.MessageBox(pchar('密码不对'),'提示',mb_ok);
    exit;
    end;
  if  form1.ADOConnection1.Connected=false then
  begin
    ////////写库线程启动
   threadd:=tdownthread.create();
   threadd.Priority:=tplowest;    //线程的优先级
   ////////写库线程退出
   threadd.OnTerminate:=threadddone;
   end;
   end;
end;

end.