cgmain.pas

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

unit cgmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, Menus, ImgList, ExtCtrls, StdCtrls, FileCtrl,
  ShellCtrls, Buttons,jpeg, XPMenu, Grids, DBGrids,inifiles, DB, DBTables,
  ADODB,mainthread,ComObj,ActiveX,downdatathread,Unit1;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ToolButton6: TToolButton;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    Splitter3: TSplitter;
    Splitter4: TSplitter;
    Splitter5: TSplitter;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    Splitter6: TSplitter;
    Splitter7: TSplitter;
    Splitter8: TSplitter;
    Panel1: TPanel;
    Query1: TQuery;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    N9: TMenuItem;
    Query2: TQuery;
    Query3: TQuery;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    ToolButton10: TToolButton;
    Splitter9: TSplitter;
    N10: TMenuItem;
    N11: TMenuItem;
    Query4: TQuery;
    Query5: TQuery;
    Image1: TImage;
    ComboBox1: TComboBox;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Label1: TLabel;
    N20: TMenuItem;
    N21: TMenuItem;
    Query6: TQuery;
    DataSource2: TDataSource;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    Table1: TTable;
    ADOQuery2: TADOQuery;
    N25: TMenuItem;
    N26: TMenuItem;
    procedure CoolBar1DockOver(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure ToolBar1DockDrop(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
  private
    { Private declarations }
    fdatabasename:string; //odbc 名称
    fdatabase:TDatabase;
    procedure threadrdone(sender:tobject);
    procedure threadddone(sender:tobject);
    function CompactDatabase(AFileName,APassWord:string):boolean;
    function GetTempPathFileName():string;
  public
    { Public declarations }
     Ti:Tinifile;
     CGCFMC:string;
     fislogin:boolean;
     tempquery,tempquery1,tempquery2:Tquery;
      temptable:ttable;
      threadr:tmythread;
      threadd:tdownthread;

  end;
 Const
  AtomStr = 'OnlyOnce';
   ReMind = '此程序版本一次开机只能运行一次,请注册后再使用!';
   Const
 SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
                               +'Jet OLEDB:Database Password=%s;';

var
  Form1: TForm1;
 
implementation

uses loads, indata, selectdata, load, managers, selectkan, sales, Unit5,
  pic, zlmanage, sfmanage, sfhd;





{$R *.dfm}

procedure TForm1.CoolBar1DockOver(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer; State: TDragState; var Accept: Boolean);
 var
  arect:trect;
begin
   accept:=(source.control is ttoolbar);
   if accept then
    begin
      arect.TopLeft:=(sender as tcoolbar).ClientToScreen((sender as tcoolbar).ClientRect.topleft);
      arect.bottomright:=(sender as tcoolbar).ClientToScreen((sender as tcoolbar).ClientRect.bottomright);
      source.dockrect:=arect;
   end;
end;
procedure TForm1.ToolBar1DockDrop(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer);
   var
 p:tpoint;
begin
     with toolbar1 do
   begin
   p:=clienttoscreen(point(0,0));
   manualfloat(rect(p.X,p.Y,1000,1000));
   end;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  atom : integer;
begin
   {if GlobalFindAtom(AtomStr) = 0 then
    atom := GlobalAddAtom(AtomStr)
  else
    begin
    Application.MessageBox(ReMind, '提示', Mb_Ok + Mb_IconInformation);
  Close;
  end;   }
   // form1.Image1.Picture.LoadFromFile('c:\rakesyd\pyf.bmp');
    form1.combobox1.Items.LoadFromFile(extractfilepath(paramstr(0))+'\zfzd.ini');
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  toolbar1.Visible:=true;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if(application.MessageBox('是否确定退出系统！','系统信息',MB_OKCANCEL)=ID_OK) then
     CanClose:=true
   else
     canclose:=false;
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
try
  form2.close;
  form3.close;
  OKBottomDlg.Close;
  OKBottomDlg1.Close;
  OKBottomDlg2.Close;
  OKBottomDlg3.Close;
  finally
  form1.close;
   end;
end;


procedure TForm1.ToolButton1Click(Sender: TObject);
begin
    form2.CTALLBUT();
    form2.Panel1.Visible:=true;
    form2.combobox2.Clear;
    form2.combobox2.Items.LoadFromFile(extractfilepath(paramstr(0))+'\cldh.ini');
    form2.combobox3.Items.LoadFromFile(extractfilepath(paramstr(0))+'\zfzd.ini');
   // form2.combobox4.Items.LoadFromFile(extractfilepath(paramstr(0))+'\cffs.ini');
     form2.panel1.Parent:=form1.panel1.Parent;
     form3.Panel1.Visible:=false;
     form2.SpeedButton4.Click;
     form2.ComboBox2.Text:='湘A'; 
     Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
     form2.Edit5.Text:=Ti.ReadString('SYSTEM','cfje','');
     Ti.free;
     form1.Query1.Close;
     form1.Query1.SQL.Clear;
     form1.Query1.SQL.Add('select * from wf_zl_info where tzshm='''+''+'''');
     form1.Query1.Open;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
     form2.edit4.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
    Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
    CGCFMC:=Ti.ReadString('SYSTEM','cfmc','');
    Ti.free;
    statusbar1.Panels[0].Text:=CGCFMC;
    fdatabasename:='CG_Data';
   fislogin:=false;
   tempquery:=Tquery.create(self);
   tempquery.requestlive:=true;
   tempquery.databasename:=Fdatabasename;
   tempquery1:=Tquery.create(self);
   tempquery1.requestlive:=true;
   tempquery1.databasename:=Fdatabasename;
   tempquery2:=Tquery.create(self);
   tempquery2.requestlive:=true;
   tempquery2.databasename:=Fdatabasename;
   form1.Query1.DatabaseName:=Fdatabasename;
   form1.Query2.DatabaseName:=Fdatabasename; // 报表
   form1.Query3.DatabaseName:=Fdatabasename; // 报表
   form1.Query4.DatabaseName:=Fdatabasename; // 报表
   form1.Query5.DatabaseName:=Fdatabasename; // 报表
   form1.Query6.DatabaseName:=Fdatabasename; // 报表
   datasource1.DataSet:=form1.Query1;
   temptable:=ttable.Create(self);
   temptable.DatabaseName:=Fdatabasename;
   //打开数据库
  Fdatabase:=tdatabase.Create(self);
  Fdatabase.DatabaseName:='CG_Data';
  Fdatabase.Params.Clear;
  Fdatabase.Params.Add('USER NAME=sa');
  Fdatabase.Params.Add('PASSWORD=crpeng');
  Fdatabase.LoginPrompt:=false;
  Fdatabase.Open;