main.~pas

地理资源的录入程序运用了api的一些知识

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls,PublicFunction, ExtCtrls, ToolWin, jpeg, DBGrids,ComObj,
  shellapi, ImgList;

type
  Tzhu = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N12: TMenuItem;
    Panel1: TPanel;
    FTP1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    Image1: TImage;
    N14: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N8: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    ftp2: TMenuItem;
    tuichu1: TMenuItem;
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ftp2Click(Sender: TObject);
    procedure tuichu1Click(Sender: TObject);

  private
    { Private declarations }
  public

    { Public declarations }
  end;

var


  zhu: Tzhu;
  procedure outputexcel(Db_data: TDBGrid);
implementation

uses TOUR, lyxxlr, tdly, dqjj, mainf, sel_sg, Unit1,progress, chgpwd,
  tjyhUnit, DataM,denglu, loc_Unit, rename_Unit;

{$R *.dfm}
const
    { XlWBATemplate }
  xlWBATChart = -4109;
  xlWBATExcel4IntlMacroSheet = 4;
  xlWBATExcel4MacroSheet = 3;
  xlWBATWorksheet = -4167;

procedure outputexcel(Db_data: TDBGrid);
var
  XlAPP: Variant;
  excelcount: integer;
  Sheet1: Variant;
  i, j: integer;
begin
  if not Db_data.DataSource.DataSet.Active then exit;
  if Db_data.DataSource.DataSet.RecordCount < 1 then exit;
    //创建excel对象
  try
    XlApp := createoleobject('Excel.Application');
    XLApp.Visible := false;
    excelcount := XLApp.Workbooks.count;
    XLApp.Workbooks.Add(xlWBatWorkSheet);
    Sheet1 := XLApp.Workbooks[1].WorkSheets['sheet1'];
  except
    showmessage('你的电脑没有安装excel程序，无法完成此功能!');
    exit;
  end;
    //setfocus;处理标题
  for j := 0 to Db_data.FieldCount - 1 do
  begin
    sheet1.cells[1, j + 1] := Db_data.Columns[j].Title.Caption;
  end; //处理记录
  Db_data.DataSource.DataSet.First;
  i := 2;
  while not Db_data.DataSource.DataSet.Eof do
  begin
       //处理一行
    DB_data.DataSource.DataSet.DisableControls;
    for j := 0 to Db_data.FieldCount - 1 do
    begin
      if Db_data.Fields[j] <> nil then
        Sheet1.cells[i, j + 1] := trim(Db_data.Fields[j].asstring)
      else
        Sheet1.cells[i, j + 1] := '';
    end;
    i := i + 1;
    Db_data.DataSource.DataSet.Next;
  end;
  DB_data.DataSource.DataSet.EnableControls;
  XLApp.Visible := true;
end;
procedure Tzhu.N16Click(Sender: TObject);
begin
try
 if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
 zhu.Caption := '旅游资源录入信息 －－－  ' + N16.Caption;
    // 显示窗体的标题变化
    LYZYLRFRM := TLYZYLRFRM.Create(Application);
  //  LYZYLRFRM.PageControl1.TabIndex := 0;
    LYZYLRFRM.BorderStyle := bsNone;
    LYZYLRFRM.ManualDock(Panel1, nil, AlClient);
    lyzylrfrm.Show;

  except
    MyError('录入窗体创建错误');
  end;

end;

procedure Tzhu.N15Click(Sender: TObject);
begin
try
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
    zhu.Caption := '土地利用录入信息 －－－  ' + N15.Caption;
    // 显示窗体的标题变化
    tdlyxxfrm := Ttdlyxxfrm.Create(Application);
    tdlyxxfrm.BorderStyle := bsNone;
    tdlyxxfrm.ManualDock(Panel1, nil, AlClient);
    tdlyxxfrm.Show;
except
    MyError('录入窗体创建错误');
  end;
end;

procedure Tzhu.N4Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
 try
    zhu.Caption := '地区经济录入信息 －－－  ' + N4.Caption;
    // 显示窗体的标题变化
    dqjjxxfrm:= Tdqjjxxfrm.Create(Application);
    dqjjxxfrm.BorderStyle := bsNone;
    dqjjxxfrm.ManualDock(Panel1, nil, AlClient);
     dqjjxxfrm.show;
  except
    MyError('录入窗体创建错误');
 end;
end;

procedure Tzhu.N5Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
      zhu.Caption := '地理信息录入信息 －－－  ' + N5.Caption;
    // 显示窗体的标题变化
    dlxxfrm:= Tdlxxfrm.Create(Application);
    dlxxfrm.BorderStyle := bsNone;
    dlxxfrm.ManualDock(Panel1, nil, AlClient);
    dlxxfrm.Show;
end;

procedure Tzhu.N18Click(Sender: TObject);
begin
 if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
    //  if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
      zhu.Caption := '栅格图录入信息 －－－  ' + N18.Caption;
      select_sgtfrm.show;
end;

procedure Tzhu.N17Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      
      zhu.Caption := '矢量图录入信息 －－－  ' + N17.Caption;
      sltfrm.show;
end;

procedure Tzhu.N3Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
       if mainform<>nil then mainform.Close ;
      zhu.Caption := '用户操作信息 －－－  ' + N3.Caption;
changpwd.show;
end;

procedure Tzhu.N6Click(Sender: TObject);
begin
if DM.User.FieldByName('Z_class').AsString='0' then
    begin
    if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
       if mainform<>nil then mainform.Close ;
      zhu.Caption := '用户操作信息 －－－  ' ;
         form3.show;
   end
else
     application.MessageBox('你没有此权限!!!', '错误信息提示', MB_ICONINFORMATION);


end;

procedure Tzhu.FormShow(Sender: TObject);

 begin
 StatusBar1.Panels[2].Text:= login.UserName.Text;
 StatusBar1.Panels[4].Text := timetostr(time()) ;
 StatusBar1.Panels[6].Text := datetostr(date());
end;

procedure Tzhu.N8Click(Sender: TObject);
begin
shellexecute(handle,'open','help.chm',nil,nil,sw_shownormal);
end;

procedure Tzhu.N10Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
       if mainform<>nil then mainform.Close ;
      zhu.Caption := '数据库操作信息 －－－  ' + N10.Caption;
Frm_data_g.BitBtn3.Click;
end;

procedure Tzhu.N13Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
       if mainform<>nil then mainform.Close ;
      zhu.Caption := '数据库操作信息 －－－  ' + N13.Caption;
Frm_data_g.Button1.Click;
end;

procedure Tzhu.N9Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
       if mainform<>nil then mainform.Close ;
      zhu.Caption := '数据库操作信息 －－－  ' + N9.Caption;
Frm_data_g.Show ;
end;

procedure Tzhu.N19Click(Sender: TObject);
begin
frmpz.show;
end;

procedure Tzhu.N21Click(Sender: TObject);
begin
 renamefrm.show;
end;

procedure Tzhu.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (IDYES = Application.MessageBox('确定要退出吗?','提示',MB_YesNo+MB_IconQuestion)) then
begin
CanClose:=TRUE;
application.Terminate;
end
else
CanClose:=FALSE;
end;

procedure Tzhu.ftp2Click(Sender: TObject);
begin
if  dqjjxxfrm<> nil then  dqjjxxfrm.Close;
  if  dlxxfrm <> nil then  dlxxfrm.Close;
    if tdlyxxfrm<> nil then   tdlyxxfrm.Close;
      if  lyzylrfrm <> nil then  lyzylrfrm.Close;
      if  select_sgtfrm<>nil then  select_sgtfrm.Close;
      if  sltfrm<>nil then sltfrm.Close ;
     zhu.Caption := '上传操作信息 －－－  ' + mainform.Caption;
mainform.show;
end;

procedure Tzhu.tuichu1Click(Sender: TObject);
begin
if MessageBox(0,'真的要退出本系统吗？','确认',MB_YESNO + MB_ICONQUESTION)=IDYES then
  begin
  Application.Terminate; //结束该程序
  end;
end;

end.