zfrm_mainbiddingu.pas

专业的评标管理系统

  //
  x := GetSystemMetrics(SM_CXSCREEN) ;
  str(x,xx) ;
  y := GetSystemMetrics(SM_CYSCREEN) ;
  str(y,yy) ;
  if (xx='800') and (yy='600') then
  begin
    //showmessage('800');
  end;
  if (xx='1024') and (yy='768') then
  begin
    // 设置工程管理 ListView 显示
    for I:=1 to ListView1.Columns.Count-1 do
      ListView1.Columns.Items[I].AutoSize := True ;
  end;
  //
  for I:=1 to ListView1.Columns.Count-1 do
    ListView1.Columns.Items[I].AutoSize := True ;
  //
end;

////////////////////// 用户自定义- <结束> //////////////////////

procedure Tzfrm_MainBidding.FormCreate(Sender: TObject);
begin
  // 设置系统分辨率
  Timer1.Enabled := True ;
  z_GetSystemMetricsP ; //***//

  // 初始化
  //CoolBar1.Enabled := False ;
  CoolBar1.Visible := False ;
  Notebook0.ActivePage := 'Image' ;

  // 隐藏所有私有快捷键
  z_HideAllToolP ; //***//

  //SpeedButton6Click(Self) ; //***//
  //zfrm_Temps.Show ;
  //
end;

procedure Tzfrm_MainBidding.SpeedButton1Click(Sender: TObject);
begin
  // 工程管理
  SpeedButton1.Down := True ;

  TabSheet1.Caption := '工程管理:' ;
  Notebook1.ActivePage := 'projectmanager' ;
  ListView1.PopupMenu := PopupMenu1 ;

  // 隐藏所有私有快捷键
  z_HideAllToolP ; //***//
  // 显示工程管理快捷键
  z_ShowProjectToolP ; //***//
  //
  //if (ztool_Project4.Down=False) then showmessage('false');
  //if (ztool_Project4.Down=True) then showmessage('True');
  //
end;

procedure Tzfrm_MainBidding.SpeedButton6Click(Sender: TObject);
begin
  // 主页
  SpeedButton1Click(Self) ;
  //
end;

procedure Tzfrm_MainBidding.Timer1Timer(Sender: TObject);
begin
  //
  Timer1.Enabled := False ;
  Hide ;
  zfrm_temps.Show;
  //
end;

procedure Tzfrm_MainBidding.N1Click(Sender: TObject);
begin
  // 关闭
  Self.Close ;
  //
end;

procedure Tzfrm_MainBidding.SpeedButton2Click(Sender: TObject);
begin
  // 上报盘制作
  SpeedButton2.Down := True ;

  TabSheet1.Caption := '上报盘制作:' ;
  Notebook1.ActivePage := 'projectmanager' ;
  ListView1.PopupMenu := PopupMenu2 ;

  // 隐藏所有私有快捷键
  z_HideAllToolP ; //***//
  // 显示上报盘制作快捷键
  z_ShowMakeDiskP ; //***//
  //
end;

procedure Tzfrm_MainBidding.SpeedButton3Click(Sender: TObject);
begin
  // 开标管理
  SpeedButton3.Down := True ;

  TabSheet1.Caption := '开标管理:' ;
  Notebook1.ActivePage := 'projectmanager' ;
  ListView1.PopupMenu := PopupMenu3 ;

  // 隐藏所有私有快捷键
  z_HideAllToolP ; //***//
  // 显示开标管理快捷键
  z_ShowOpenbidP ; //***//
  //
end;

procedure Tzfrm_MainBidding.SpeedButton4Click(Sender: TObject);
begin
  // 评标管理
  SpeedButton4.Down := True ;

  TabSheet1.Caption := '评标管理:' ;
  Notebook1.ActivePage := 'projectmanager' ;
  ListView1.PopupMenu := PopupMenu4 ;

  // 隐藏所有私有快捷键
  z_HideAllToolP ; //***//
  // 显示评标管理快捷键
  z_ShowGetbidP ; //***//
  //
end;

procedure Tzfrm_MainBidding.SpeedButton5Click(Sender: TObject);
begin
  // 报表打印
  SpeedButton5.Down := True ;

  TabSheet1.Caption := '报表打印:' ;
  Notebook1.ActivePage := 'projectmanager' ;
  ListView1.PopupMenu := PopupMenu5 ;

  // 隐藏所有私有快捷键
  z_HideAllToolP ; //***//
  // 显示报表打印快捷键
   // 显示评标管理快捷键
  z_ShowPrint1P ; //***
  //
end;

procedure Tzfrm_MainBidding.z_Project1Execute(Sender: TObject);
begin
  // 新建工程
  with zfrm_ProjectNew do
  begin
    Caption := '新建工程' ;
    BitBtn1.Visible := True ;
    Edit1.Enabled := True ;
    ShowModal ;
  end;
  // 刷新
  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

procedure Tzfrm_MainBidding.z_Project2Execute(Sender: TObject);
begin
  // 工程属性

  // 得到选择工程代码
  z_SelectProjectP ; //***//
  if zh_ci_codeS = '' then Exit;
  //
  with zfrm_ProjectNew do
  begin
    Caption := '工程属性' ;
    BitBtn1.Visible := False ;
    Edit1.Enabled := False ;
    //Edit1.Text := zh_ci_codeS ;
    zfrm_ProjectNew.ShowModal ;
  end;
  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

procedure Tzfrm_MainBidding.z_Project3Execute(Sender: TObject);
begin
  // 删除工程

  // 得到选择工程代码
  z_SelectProjectP ; //***//
  if zh_ci_codeS = '' then Exit;

  // 删除提示
  zh_returnV:=Application.MessageBox(
      '您是否要删除此工程？',
      '删除用户',
       MB_YesNo++MB_ICONWARNING);
  if zh_returnV=IDNO then Exit;

  // 删除用户
  try  {try <2> S}
    zh_Delete_SQL := 'delete from tm_projectinfo where pi_code=:pi_code';
    //showmessage(zh_Insert_SQL);
    Query1.Close;
    Query1.SQL.Clear ;
    Query1.SQL.Add(zh_Delete_SQL);
      Query1.ParamByName('pi_code').AsString  := zh_ci_codeS ;
    Query1.Prepare ;
    Query1.ExecSQL ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查',
      '数据库错',
      MB_OK+MB_ICONError);
      Exit ;
  end; {try <2> E}

  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

procedure Tzfrm_MainBidding.z_Project4Execute(Sender: TObject);
begin
  // 查询工程
  ztool_Project4.Down := True ;
  z_Project4.Enabled := False ;
  zfrm_ProjectQuery.Show ;
  //
end;

procedure Tzfrm_MainBidding.z_Project5Execute(Sender: TObject);
begin
  // 工程参数设置
  zfrm_ProjectParam.ShowModal ;
  //
end;

procedure Tzfrm_MainBidding.StaticText1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  temp :integer;
begin
  //
  if  (ssLeft in Shift) then
  begin
    temp := Y + ListView1.Height -7 ; //+ CoolBar1.Height - 10 ;
    if temp < 100 then Exit ;
    if (temp > (StatusBar1.Top -200)) then Exit ;
    Panel3.Top := temp ;
    Panel3.Width := StaticText1.Width ;
  end;
  //
end;

procedure Tzfrm_MainBidding.StaticText1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //
  if  (ssLeft in Shift)then
  begin
    Panel3.Visible := True ;
    Panel3.BringToFront ;
  end;
  //
end;

procedure Tzfrm_MainBidding.StaticText1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //
  ListView1.Height := Panel3.Top ;//- CoolBar1.Height ;
  Panel3.Visible  := False ;
  Panel3.SendToBack ;
  //
end;

procedure Tzfrm_MainBidding.z_Project6Execute(Sender: TObject);
begin
  // 工程配置
  zfrm_ProjectSetup.ShowModal ;
  //
end;

procedure Tzfrm_MainBidding.ToolButton8Click(Sender: TObject);
begin
  // 注销用户
  zfrm_Logins.Caption := '注销用户' ;
  zfrm_Logins.ShowModal ;
  //
end;

procedure Tzfrm_MainBidding.z_MakeDisk1Execute(Sender: TObject);
begin
  // 添加单位
  // 得到选择工程代码
  z_SelectProjectP ; //***//
  if zh_ci_codeS = '' then Exit;

  // 用户检测
  if z_CheckCustomerLevelF then Exit ;

  with zfrm_UnitManage do
  begin
    Label3.Caption := z_pi_projectnameS ;
    ShowModal ;
  end;

  // 刷新
  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

procedure Tzfrm_MainBidding.z_MakeDisk2Execute(Sender: TObject);
begin
  // 制作软盘
  // 得到选择工程代码
  z_SelectProjectP ; //***//
  if zh_ci_codeS = '' then Exit;

  // 用户检测
  if z_CheckCustomerLevelF then Exit ;

  with zfrm_UnitDisk do
  begin
    Label2.Caption := z_pi_projectnameS ;
    ShowModal ;
  end;
  // 刷新
  z_FlashProjectListView1P('ALL') ; //***//

  //
end;

procedure Tzfrm_MainBidding.z_openbid1Execute(Sender: TObject);
begin
  // 数据采集
  // 得到选择工程代码
  z_SelectProjectP ; //***//
  if zh_ci_codeS = '' then Exit;

  // 用户检测
  if z_CheckCustomerLevelF then Exit ;
  ShowRForm;
  {with zfrm_ReportDisk do
  begin
    Label1.Caption := z_pi_projectnameS ;
    ShowModal ;
  end;   }
  //zfrm_OpenbidManage.Show ;
  // 刷新
  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

procedure Tzfrm_MainBidding.z_GetBid1Execute(Sender: TObject);
begin
  // 自动定标
  z_SelectProjectP ; //***//
  if zh_ci_codeS = '' then Exit;

  // 用户检测
  if z_CheckCustomerLevelF then Exit ;

  with zfrm_AutoGetBid do
  begin
    Label1.Caption := z_pi_projectnameS ;
    ShowModal ;
  end;
  // 刷新
  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

procedure Tzfrm_MainBidding.Image2DblClick(Sender: TObject);
begin
  // 双击进入系统
  //CoolBar1.Enabled := True ;
  CoolBar1.Visible := True ;
  Notebook0.ActivePage := 'Working' ;
  SpeedButton1Click(Self) ; //***//

  // 刷新
  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

procedure Tzfrm_MainBidding.ToolButton6Click(Sender: TObject);
begin
  // 权限管理
  with zfrm_popedom do
  begin
    Show ;
    WindowState := wsNormal;
  end;
  //
end;

procedure Tzfrm_MainBidding.FormActivate(Sender: TObject);
begin
  // 刷新
  //z_FlashProjectListView1P ; //***//
  //
end;

procedure Tzfrm_MainBidding.ListView1Click(Sender: TObject);
var
  I,J :integer ;
begin
  // 显示描述
  J := (Sender as TListView).Items.Count-1 ;
  for I:=0 to J do
  begin
    if (Sender as TListView).Items.Item[I].Selected then
    begin
      // 显示 内容
      z_ShowProjectDescP((Sender as TListView).Items.Item[I].SubItems[0]);
    end;
  end;
  //
end;

procedure Tzfrm_MainBidding.ListView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //
  ListView1Click(ListView1) ; //***//
  //
end;

procedure Tzfrm_MainBidding.zh_changepasswdExecute(Sender: TObject);
begin
  // 修改密码
  zfrm_changepasswd.ShowModal ;
  //
end;

procedure Tzfrm_MainBidding.zh_informationExecute(Sender: TObject);
begin
  // 信息发布
  //
end;

procedure Tzfrm_MainBidding.zh_datasumExecute(Sender: TObject);
begin
  // 数据统计
  //
end;

procedure Tzfrm_MainBidding.z_print1Execute(Sender: TObject);
begin
  // 报表预览
  // 得到选择工程代码
  z_SelectProjectP ; //***//
  if zh_ci_codeS = '' then Exit;

  // 用户检测
  if z_CheckCustomerLevelF then Exit ;

  // 检测是否有中标单位
  zh_Select_SQL := 'select * from tm_autogetbid where (pi_code=:pi_code) and (gb_tenderflag=:gb_tenderflag) ' ;
  try  {try <1> S}
    Query4.Close ;
    Query4.SQL.Clear ;
    Query4.SQL.Add(zh_Select_SQL) ;
      Query4.ParamByName('pi_code').AsString       := zh_ci_codeS ;
      Query4.ParamByName('gb_tenderflag').AsString := '●' ;
    Query4.Prepare ;
    Query4.Open ;
    Query4.First ;
  except
      // 数据库错
    Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

  if Query4.RecordCount = 0 then
  begin
    Application.MessageBox(
      '该招标工程尚未定标, 请先定标',
      '未定标',
      MB_OK+MB_ICONINFORMATION) ;
    Exit ;
  end;

  // 打印模块
  PreViewReport ; //*****//

  // 刷新
  z_FlashProjectListView1P('ALL') ; //***//
  //
end;

end.