unit_topparentform.pas

招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言

unit Unit_TopParentForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,adodb;

type
  Tfrm_TopParentForm = class(TForm)
    Panel3: TPanel;
    Label52: TLabel;
    Label63: TLabel;
    Label72: TLabel;
    Com_xmname: TComboBox;
    Com_zhaoBiao: TComboBox;
    Com_Gclxname: TComboBox;
    Panel2: TPanel;
    procedure Com_xmnameChange(Sender: TObject);
    procedure Com_zhaoBiaoChange(Sender: TObject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_TopParentForm: Tfrm_TopParentForm;

implementation

uses DataModule,SystemObject,DataAccessCommonShell;

{$R *.dfm}

procedure Tfrm_TopParentForm.Com_xmnameChange(Sender: TObject);
begin
  GetXmbdgc(com_xmname.text,com_zhaobiao.text,com_gclxname.text);
end;

procedure Tfrm_TopParentForm.Com_zhaoBiaoChange(Sender: TObject);
begin
  if com_zhaobiao.Text='施工' then
  begin
    com_gclxname.Visible:=true;
    label72.Visible:=True;
    com_gclxname.Text:='请选择工程类型';
  end
  else  if (com_zhaobiao.Text='监理') or (com_zhaobiao.Text='设计') then
  begin
    com_gclxname.Visible:=False;
    label72.Visible:=False;
    com_gclxname.itemindex:=0;
    com_gclxname.Text:=com_gclxname.items[0];
  end;
  GetXmbdgc(com_xmname.text,com_zhaobiao.text,com_gclxname.text);
end;

procedure Tfrm_TopParentForm.Com_GclxnameChange(Sender: TObject);
begin
  GetXmbdgc(com_xmname.text,com_zhaobiao.text,com_gclxname.text);
end;

procedure Tfrm_TopParentForm.FormDestroy(Sender: TObject);
begin
  frm_TopParentForm:=nil;
end;

procedure Tfrm_TopParentForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=Cafree;
end;

procedure Tfrm_TopParentForm.FormCreate(Sender: TObject);
begin
  if com_zhaobiao.Text='施工' then
  begin
    com_gclxname.Visible:=true;
    label72.Visible:=True;
  end
  else  if (com_zhaobiao.Text='监理') or (com_zhaobiao.Text='设计') then
  begin
    com_gclxname.Visible:=False;
    label72.Visible:=False;
    com_gclxname.itemindex:=0;
    com_gclxname.Text:=com_gclxname.items[0];
  end;
end;

end.