zfrm_openbidmanageu.pas

专业的评标管理系统

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

unit zfrm_OpenbidManageU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, ExtCtrls, ComCtrls;

type
  Tzfrm_OpenbidManage = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    GroupBox2: TGroupBox;
    Image2: TImage;
    StringGrid2: TStringGrid;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    Button1: TButton;
    Button2: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Label1: TLabel;
    procedure StringGrid2SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure StringGrid2DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zfrm_OpenbidManage: Tzfrm_OpenbidManage;

  z_cellX: Integer = 0 ;
  z_cellY: Integer = 0 ;
implementation

uses zfrm_ReportDiskU;

{$R *.DFM}

procedure Tzfrm_OpenbidManage.StringGrid2SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  // 得到坐标
  z_cellX := ACol ;
  z_cellY := ARow ;
  //
end;

procedure Tzfrm_OpenbidManage.StringGrid2DblClick(Sender: TObject);
begin
  //
  if z_cellX=3 then StringGrid2.Cells[z_cellX,z_cellY] := '通过' ;
  //
end;

procedure Tzfrm_OpenbidManage.FormCreate(Sender: TObject);
begin
  //
  StringGrid2.ColWidths[3] := 50;
  //
end;

procedure Tzfrm_OpenbidManage.Button1Click(Sender: TObject);
begin
  // 确认
  zfrm_ReportDisk.Close ;
  Close ;
  //
end;

procedure Tzfrm_OpenbidManage.Button2Click(Sender: TObject);
begin
  // 取消
  Close ;
  //
end;

end.