unit_parentform.pas

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

unit Unit_ParentForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, ExtCtrls, OleCtrls,
  CELL50Lib_TLB, ImgList, DB, ADODB;

type
  TFrm_ParentForm = class(TForm)
    Cell1: TCell;
    Panel3: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Com_xmname: TComboBox;
    Com_zhaoBiao: TComboBox;
    Com_Gclxname: TComboBox;
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Com_Project: TComboBox;
    Com_Leibie: TComboBox;
    Btn_xiangxi: TBitBtn;
    ToolBar2: TToolBar;
    BitBtn9: TBitBtn;
    ImageList1: TImageList;
    Bib_Priview: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    bb_reflash: TBitBtn;
    bb_savetodata: TBitBtn;
    SaveDialog1: TSaveDialog;
    Label2: TLabel;
    Edit1: TEdit;
    com_zhuanjia: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Bib_PriviewClick(Sender: TObject);
    procedure Cell1MouseLClick(Sender: TObject; col, row, updn: Integer);
    //procedure Getitems;
    procedure Com_zhaoBiaoChange(Sender: TObject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure Com_xmnameChange(Sender: TObject);
    procedure Com_LeibieChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Com_ProjectChange(Sender: TObject);
    procedure bb_savetodataClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }

  public
    { Public declarations }
    bOpen :boolean;
  end;

var
  Frm_ParentForm: TFrm_ParentForm;

implementation

uses
  DataModule,unit_public,SystemObject,DataAccessCommonShell;

{$R *.dfm}


{procedure TFrm_ParentForm.GetItems;
var
  adoquery :Tadoquery;
  i    :Integer;
begin
  if xmbdgc.XM_ISBn='000'  then com_xmname.Text:='请选择项目'
  else   com_xmname.Text:=xmbdgc.XM_NAME;
  if xmbdgc.BDLX_ID='0'  then com_zhaobiao.Text:='施工'
  else   com_zhaobiao.Text:=xmbdgc.BDLX_NAME;
  if xmbdgc.gCLX_ID='0'  then com_gclxname.Text:='请选择工程类型'
  else  com_gclxname.Text:=xmbdgc.GCLX_NAME;
  adoquery:=tadoquery.create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=DataModule1.ADOMainConn;
    adoquery.SQL.Text:='select xm_name  from bid_xiangmu_xinxi ';
    adoquery.Open;
    adoquery.First;
    com_xmname.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_xmname.items.add(adoquery.FieldByName('xm_name').AsString);
      adoquery.Next;
    end;
    adoquery.Close;
    adoquery.SQL.Text:='select zblx_name  from bid_zhaobiao_leixing';
    adoquery.Open;
    adoquery.First;
    com_zhaobiao.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_zhaobiao.items.add(adoquery.FieldByName('zblx_name').AsString);
      adoquery.Next;
    end;
    adoquery.Close;
    adoquery.SQL.Text:='select gclx_name  from bid_gongcheng_leixing ';
    adoquery.Open;
    adoquery.First;
    com_gclxname.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_gclxname.items.add(adoquery.FieldByName('gclx_name').AsString);
      adoquery.Next;
    end;
  finally
    freeandnil(adoquery);
  end;
end;}
procedure TFrm_ParentForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action :=Cafree;
end;

procedure TFrm_ParentForm.FormCreate(Sender: TObject);
var
  Adoquery:TADOQuery;
begin
  cell1.ShowSideLabel(0, 0); //不显示行标
  cell1.ShowTopLabel(0, 0);  //不显示列标
  if com_zhaobiao.Text='施工' then
  begin
    com_gclxname.Visible:=true;
    label7.Visible:=True;
  end
  else  if (com_zhaobiao.Text='监理') or (com_zhaobiao.Text='设计') then
  begin
    com_gclxname.Visible:=False;
    label7.Visible:=False;
    com_gclxname.itemindex:=0;
    com_gclxname.Text:=com_gclxname.items[0];
  end;
end;

procedure TFrm_ParentForm.FormDestroy(Sender: TObject);
begin
  frm_parentform:=nil;
end;

procedure TFrm_ParentForm.Bib_PriviewClick(Sender: TObject);
begin
  cell1.PrintSetAlign(1,1);
  cell1.PrintPreview(1,cell1.GetCurSheet);
end;

procedure TFrm_ParentForm.Cell1MouseLClick(Sender: TObject; col, row,
  updn: Integer);
begin
 {}
end;

procedure TFrm_ParentForm.Com_zhaoBiaoChange(Sender: TObject);
begin
   if com_zhaobiao.Text='施工' then
   begin
     com_gclxname.Visible:=true;
     label7.Visible:=True;
     com_gclxname.Text:='请选择工程类型';
   end
   else  if (com_zhaobiao.Text='监理') or (com_zhaobiao.Text='设计') then
   begin
     com_gclxname.Visible:=False;
     label7.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_ParentForm.Com_GclxnameChange(Sender: TObject);
begin
   GetXmbdgc(com_xmname.text,com_zhaobiao.text,com_gclxname.text);

end;

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

procedure TFrm_ParentForm.Com_LeibieChange(Sender: TObject);
begin
{}
end;

procedure TFrm_ParentForm.BitBtn2Click(Sender: TObject);
begin
  inherited;
  bopen:=false;
  if (com_xmName.ItemIndex<0) or (com_zhaobiao.ItemIndex<0)
     or (com_gclxname.ItemIndex<0) then
  begin
    Bopen:=true;
    exit;
  end;
  try
    if not DirectoryExists(GetFilePath) then
       CreateDir(GetFilePath);
  except
    showmessage('保存信息指定不正确');
    bopen:=true;
  end;
end;

procedure TFrm_ParentForm.BitBtn1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to cell1.GetTotalSheets-1 do
  begin
    cell1.PrintSetAlign(1,1);
    cell1.PrintSheet(0,I);
  END;
end;

procedure TFrm_ParentForm.Com_ProjectChange(Sender: TObject);
begin
  {}
end;

procedure TFrm_ParentForm.bb_savetodataClick(Sender: TObject);
begin
  {}
end;

procedure TFrm_ParentForm.BitBtn3Click(Sender: TObject);
begin
  if savedialog1.Execute then
    cell1.ExportExcelFile(savedialog1.FileName+'.xls');
end;

procedure TFrm_ParentForm.BitBtn9Click(Sender: TObject);
begin
  cell1.PrintPageSetup();
end;

procedure TFrm_ParentForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0'..'9',#8,#13]) then
     Key:=#0;
end;

end.