zfrm_mainbiddingu.pas

专业的评标管理系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_MainBiddingU                                      *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_MainBiddingU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ComCtrls, ExtCtrls, ToolWin, Menus, ImgList, StdCtrls, ActnList,
  Db, DBTables;

type
  Tzfrm_MainBidding = class(TForm)
    MainMenu1: TMainMenu;
    M1: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    CoolBar1: TCoolBar;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    N3: TMenuItem;
    S1: TMenuItem;
    N4: TMenuItem;
    Timer1: TTimer;
    ImageList2: TImageList;
    ToolButton8: TToolButton;
    ztool_Project1: TToolButton;
    ztool_Project2: TToolButton;
    ztool_Project4: TToolButton;
    ztool_Project5: TToolButton;
    ztool_Project3: TToolButton;
    PopupMenu1: TPopupMenu;
    ActionList1: TActionList;
    z_Project1: TAction;
    N5: TMenuItem;
    z_Project2: TAction;
    z_Project3: TAction;
    z_Project4: TAction;
    z_Project5: TAction;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ztool_Project6: TToolButton;
    ToolButton10: TToolButton;
    z_Project6: TAction;
    N13: TMenuItem;
    N14: TMenuItem;
    ToolButton3: TToolButton;
    PopupMenu2: TPopupMenu;
    N15: TMenuItem;
    N21: TMenuItem;
    ActionList2: TActionList;
    z_MakeDisk1: TAction;
    z_MakeDisk2: TAction;
    ztool_Disk1: TToolButton;
    ztool_Disk2: TToolButton;
    N16: TMenuItem;
    PopupMenu3: TPopupMenu;
    ActionList3: TActionList;
    z_openbid1: TAction;
    N17: TMenuItem;
    ztool_openbid1: TToolButton;
    PopupMenu4: TPopupMenu;
    ztool_Getbid1: TToolButton;
    ActionList4: TActionList;
    z_GetBid1: TAction;
    N18: TMenuItem;
    Panel10: TPanel;
    Notebook0: TNotebook;
    Panel1: TPanel;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Notebook1: TNotebook;
    Panel3: TPanel;
    ListView1: TListView;
    StaticText1: TStaticText;
    Memo1: TMemo;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Query4: TQuery;
    Query2: TQuery;
    Query1: TQuery;
    ImageList3: TImageList;
    ActionList5: TActionList;
    zh_projectmanager: TAction;
    zh_reportdisk: TAction;
    zh_opentender: TAction;
    zh_autogetbid: TAction;
    zh_print: TAction;
    L1: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    zh_information: TAction;
    zh_datasum: TAction;
    zh_levelmanager: TAction;
    zh_logout: TAction;
    N2: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    ToolButton7: TToolButton;
    zh_changepasswd: TAction;
    ToolButton9: TToolButton;
    N30: TMenuItem;
    P1: TMenuItem;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    PopupMenu5: TPopupMenu;
    MenuItem1: TMenuItem;
    ActionList6: TActionList;
    z_print1: TAction;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure z_Project1Execute(Sender: TObject);
    procedure z_Project2Execute(Sender: TObject);
    procedure z_Project3Execute(Sender: TObject);
    procedure z_Project4Execute(Sender: TObject);
    procedure z_Project5Execute(Sender: TObject);
    procedure StaticText1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure StaticText1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StaticText1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure z_Project6Execute(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure z_MakeDisk1Execute(Sender: TObject);
    procedure z_MakeDisk2Execute(Sender: TObject);
    procedure z_openbid1Execute(Sender: TObject);
    procedure z_GetBid1Execute(Sender: TObject);
    procedure Image2DblClick(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure zh_changepasswdExecute(Sender: TObject);
    procedure zh_informationExecute(Sender: TObject);
    procedure zh_datasumExecute(Sender: TObject);
    procedure z_print1Execute(Sender: TObject);
  private
    { Private declarations }
    procedure z_GetSystemMetricsP();  // 得到系统分辨率
    //
    procedure z_HideAllToolP();
    //
    procedure z_ShowProjectToolP();
    procedure z_HideProjectToolP();
    //
    procedure z_ShowMakeDiskP();
    procedure z_HideMakeDiskP();
    //
    procedure z_ShowOpenbidP();
    procedure z_HideOpenbidP();
    //
    procedure z_ShowGetbidP();
    procedure z_HideGetbidP();
    //
    procedure z_ShowPrint1P();
    procedure z_HidePrint1P();
    //
  public
    { Public declarations }
    procedure z_FlashProjectListView1P(z_Select_Sql:string);
    procedure z_ShowProjectDescP(z_pi_code: string);
    procedure z_SelectProjectP();

    procedure z_SetCustomerFunctionP();

    // 检测用户是否有权限
    function z_CheckCustomerLevelF():Boolean;
  end;

var
  zfrm_MainBidding: Tzfrm_MainBidding;

  // 自定义变量
  z_pi_projectnameS: string; // 工程名称
  z_pi_locktypeS:    string; // 锁定

implementation

uses zfrm_Temp, zmod_CommonFuncProcU, zfrm_ProjectSetup1U, zfrm_login,
  zfrm_ProjectNewU, zfrm_ProjectQueryU, zfrm_UnitManageU, zfrm_UnitDiskU,
  zfrm_ProjectParamU, zfrm_OpenbidManageU, zfrm_ReportDiskU,
  zfrm_AutoGetBidU, zfrm_popedomU, zmod_commonDateU, zfrm_changepasswdU,
  uReport_print;

{$R *.DFM}

////////////////////// 用户自定义- <开始> //////////////////////

// 检测用户是否有权限
function Tzfrm_MainBidding.z_CheckCustomerLevelF():Boolean;
begin
  // 得到数量 值
  zh_Select_SQL := 'select count(*) from tm_customerproject where  pi_code=' + '''' + zh_ci_codeS + '''' + ' and ci_loginname=' + '''' + zh_ci_loginname + '''' ;
  if zh_PublicQuery4F(zh_Select_SQL)>0 then //***//
    z_CheckCustomerLevelF := False
  else
  begin
     Application.MessageBox(
      '当前用户没有操作此工程的权限, 请您与系统管理员联系',
      '用户权限',
      MB_OK+MB_ICONINFORMATION) ;
    z_CheckCustomerLevelF := True ;
  end;
  //
end;

procedure Tzfrm_MainBidding.z_SetCustomerFunctionP();
begin
  //
  {管理员
  一般用户}
  SpeedButton1Click(Self) ; //***//

  if zh_ci_level='管理员' then
  begin
    // 不能做的
//    zh_projectmanager.Enabled := False ;
    zh_reportdisk.Enabled     := False ;
    zh_opentender.Enabled     := False ;
    zh_autogetbid.Enabled     := False ;
    zh_print.Enabled          := False ;
    z_Project5.Enabled        := False ;
    zh_information.Enabled    := False ;
    zh_datasum.Enabled        := False ;
    // 可做
    z_Project1.Enabled        := True ;
    z_Project2.Enabled        := True ;
    z_Project3.Enabled        := True ;
    z_Project6.Enabled        := True ;
    zh_levelmanager.Enabled := True ;
    //
  end;
  if zh_ci_level='一般用户' then
  begin
    // 不能做的
    z_Project1.Enabled        := False ;
    z_Project2.Enabled        := False ;
    z_Project3.Enabled        := False ;
    z_Project6.Enabled        := False ;
    zh_levelmanager.Enabled   := False ;
    // 可做
//    zh_projectmanager.Enabled := True ;
    zh_reportdisk.Enabled     := True ;
    zh_opentender.Enabled     := True ;
    zh_autogetbid.Enabled     := True ;
    zh_print.Enabled          := True ;
    z_Project5.Enabled        := True ;
    zh_information.Enabled    := True ;
    zh_datasum.Enabled        := True ;
    //
  end;


  //
end;

procedure Tzfrm_MainBidding.z_SelectProjectP();
var
  I,J: integer;
begin
  // 得到,选中工程
  zh_ci_codeS := '' ;
  // 工程代码
  J := ListView1.Items.Count-1 ;
  for I:=0 to J do
  begin
    if ListView1.Items.Item[I].Selected then
    begin
      z_pi_locktypeS := ListView1.Items.Item[I].Caption ;
      zh_ci_codeS := ListView1.Items.Item[I].SubItems[0] ;
      z_pi_projectnameS := ListView1.Items.Item[I].SubItems[1] ;
      Break ;
    end;
  end;
  //
end;

procedure Tzfrm_MainBidding.z_ShowProjectDescP(z_pi_code: string);
begin
  // 显示描述内容
  try  {try <1> S}
    zh_Select_SQL :='select pi_describe from tm_projectinfo where pi_code=' + '''' + z_pi_code + '''';
    //showmessage(zh_Select_SQL);
    Query2.Close ;
    Query2.SQL.Clear ;
    Query2.SQL.Add(zh_Select_SQL);
    Query2.Prepare ;
    Query2.Open ;
    //Query2.First ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}
  Memo1.Text := Query2.Fields[0].AsString ;
  //
end;

procedure Tzfrm_MainBidding.z_FlashProjectListView1P(z_Select_Sql:string);
var
  NewItem: TListItem;
begin
  // 刷新工程列表
  ListView1.Items.Clear;

  if z_Select_Sql = 'ALL' then
    zh_Select_SQL := 'select * from tm_projectinfo where pi_statetype<>' + '''' + '关闭' + '''' + ' order by g_pi_id desc'
  else
    zh_Select_SQL := z_Select_Sql ;

  try  {try <1> S}
    Query4.Close ;
    Query4.SQL.Clear ;
    Query4.SQL.Add(zh_Select_SQL) ;
    Query4.Prepare ;
    Query4.Open ;
    Query4.First ;
  except
      // 数据库错
    Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

  Memo1.Text := Query4.Fields[13].AsString ;
  while not Query4.Eof do
  begin {while <1> S}
    NewItem:=ListView1.Items.add ;
    NewItem.Caption := '' ;
    if Query4.Fields[15].AsString = '锁定' then  NewItem.Caption := '●' ;
    NewItem.SubItems.Add(Query4.Fields[1].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[2].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[3].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[4].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[5].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[6].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[7].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[8].AsString) ;
    NewItem.SubItems.Add(Query4.Fields[14].AsString) ;

    NewItem.ImageIndex := 0 ;
    Query4.Next ;
  end; {while <1> E}
  //
end;

procedure Tzfrm_MainBidding.z_HideAllToolP();
begin
  // 隐藏所有快捷键
  z_HideProjectToolP ; //***//
  z_HideMakeDiskP ; //***//
  z_HideOpenbidP ; //***//
  z_HideGetbidP ; //***//
  z_HidePrint1P ; //***//
  //
end;

procedure Tzfrm_MainBidding.z_ShowPrint1P();
begin
  // 显示打印快捷键
  ToolButton12.Visible := True ;
  //
end;

procedure Tzfrm_MainBidding.z_HidePrint1P();
begin
  // 隐藏打印快捷键
  ToolButton12.Visible := False ;
  //
end;

procedure Tzfrm_MainBidding.z_ShowGetbidP();
begin
  // 显示评标管理快捷键
  ztool_GetBid1.Visible := True ;
  //
end;

procedure Tzfrm_MainBidding.z_HideGetbidP();
begin
  // 隐藏评标管理快捷键
  ztool_GetBid1.Visible := False ;
  //
end;

procedure Tzfrm_MainBidding.z_ShowOpenbidP();
begin
  // 显示开标管理快捷键
  ztool_openbid1.Visible := True ;
  //
end;

procedure Tzfrm_MainBidding.z_HideOpenbidP();
begin
  // 隐藏开标管理快捷键
  ztool_openbid1.Visible := False ;
  //
end;

procedure Tzfrm_MainBidding.z_ShowMakeDiskP();
begin
  // 显示上报盘制作快捷键
  ztool_Disk1.Visible := True ;
  ztool_Disk2.Visible := True ;
  //
end;

procedure Tzfrm_MainBidding.z_HideMakeDiskP();
begin
  // 隐藏上报盘制作快捷键
  ztool_Disk1.Visible := False ;
  ztool_Disk2.Visible := False ;
  //
end;


procedure Tzfrm_MainBidding.z_ShowProjectToolP();
begin
  // 显示工程管理快捷键
  ztool_Project1.Visible := True ;
  ztool_Project2.Visible := True ;
  ztool_Project3.Visible := True ;
  ztool_Project4.Visible := True ;
  ztool_Project5.Visible := True ;
  ztool_Project6.Visible := True ;
  //
end;

procedure Tzfrm_MainBidding.z_HideProjectToolP();
begin
  // 隐藏工程管理快捷键
  ztool_Project1.Visible := False ;
  ztool_Project2.Visible := False ;
  ztool_Project3.Visible := False ;
  ztool_Project4.Visible := False ;
  ztool_Project5.Visible := False ;
  ztool_Project6.Visible := False ;
  //
end;

procedure Tzfrm_MainBidding.z_GetSystemMetricsP();
var
  x,y :longint;
  xx,yy :string;
  I :integer;
begin