u_dwxinxi.pas

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

    Edit159: TEdit;
    Edit160: TEdit;
    Edit161: TEdit;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    ListView2: TListView;
    Memo1: TMemo;
    TabSheet9: TTabSheet;
    Label108: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label113: TLabel;
    Label233: TLabel;
    Label114: TLabel;
    ListView1: TListView;
    Edit100: TEdit;
    Edit101: TEdit;
    Edit102: TEdit;
    Edit165: TEdit;
    Edit166: TEdit;
    Edit168: TEdit;
    Edit169: TEdit;
    BitBtn5: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    ToolBar1: TToolBar;
    bb_Cancel: TBitBtn;
    Panel12: TPanel;
    TabSheet10: TTabSheet;
    Panel15: TPanel;
    Label3: TLabel;
    ToolBar2: TToolBar;
    Label7: TLabel;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    btn_modify: TBitBtn;
    btn_add: TBitBtn;
    btn_del: TBitBtn;
    btn_save: TBitBtn;
    Edit14: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Edit15: TEdit;
    GroupBox4: TGroupBox;
    Panel16: TPanel;
    Label11: TLabel;
    Label14: TLabel;
    Edit16: TEdit;
    Edit17: TEdit;
    Panel17: TPanel;
    Label15: TLabel;
    Label26: TLabel;
    Edit18: TEdit;
    Edit19: TEdit;
    Panel18: TPanel;
    Label27: TLabel;
    Label28: TLabel;
    Edit20: TEdit;
    Edit21: TEdit;
    Panel19: TPanel;
    Label29: TLabel;
    Label30: TLabel;
    Edit22: TEdit;
    Edit23: TEdit;
    Panel20: TPanel;
    Label31: TLabel;
    Label32: TLabel;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit8: TEdit;
    Label20: TLabel;
    Label21: TLabel;
    Edit9: TEdit;
    Label22: TLabel;
    Edit10: TEdit;
    Label33: TLabel;
    Edit26: TEdit;
    Com_DWname: TComboBox;
    Ado_dwxxzz: TADOQuery;
    memo_zizhi: TMemo;
    ADO_AM: TADOQuery;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Com_leixing: TComboBox;
    ADO_zz: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure bb_CancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure LoadXinXI;
    procedure btn_saveClick(Sender: TObject);
    procedure modify;
    procedure PageControl1Change(Sender: TObject);
    procedure Com_DWnameChange(Sender: TObject);
    procedure btn_modifyClick(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure Com_DWnameDropDown(Sender: TObject); //修改
  private
    { Private declarations }
    ichoose:Integer; //选择操作
    DragDrop:Integer;//下拉框是否下拉 1：下拉，0：未下拉
    iLoad:Integer;//判断在数据集滚动时候是不是要加载具体信息
    iPageTab:Integer;//存储换页前的页面序号
    Dw_id:integer;


  public
    { Public declarations }
  end;

var
  Frm_DWXinXi: TFrm_DWXinXi;

implementation

uses
  datamodule,DataAccessCommonShell;

{$R *.dfm}

procedure TFrm_DWXinXi.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TFrm_DWXinXi.FormDestroy(Sender: TObject);
begin
  Frm_DWXinXi:=nil;
end;

procedure TFrm_DWXinXi.btn_addClick(Sender: TObject);
begin
  btn_modify.Enabled:=false;
  btn_Del.Enabled:=false;
  btn_Save.Enabled:=true;
  bb_Cancel.Enabled:=true;
  //com_leixing.Enabled:=false;
  ichoose:=1;
  btn_save.Enabled:=true;
end;

procedure TFrm_DWXinXi.bb_CancelClick(Sender: TObject);
begin
  btn_Add.Enabled:=true;
  btn_modify.Enabled:=true;
  btn_Del.Enabled:=true;
  btn_Save.Enabled:=FALSE;
  ichoose:=0;
end;

procedure TFrm_DWXinXi.FormShow(Sender: TObject);
begin
  iLoad:=1;
end;

procedure TFrm_DWXinXi.FormCreate(Sender: TObject);
var
 i:integer;
begin
  iLoad:=0;
  iPageTab:=0;
  DragDrop:=0;
  adoquery1.Active:=true;
  pagecontrol1.ActivePageIndex:=0;
  com_dwname.Items.Clear;
  for i:=0 to adoquery1.RecordCount-1 do
  begin
    com_dwname.Items.Add(adoquery1.fieldbyname('dw_name').AsString);
    adoquery1.Next;
  end;
end;

procedure TFrm_DWXinXi.DataSource1DataChange(Sender: TObject; Field: TField);
var
  i:integer;
begin
  if iload=1 then
  begin
    com_dwname.Text:=adoquery1.fieldbyname('dw_name').AsString;
    dw_id:=adoquery1.fieldbyname('dw_id').AsInteger;
    loadxinxi;
  end;
end;

procedure TFrm_DWXinXi.LoadXinXI;
begin

  Ado_dwxxzz.Close;
  Ado_dwxxzz.SQL.Text:='select * from bid_danwei_xinxi where dw_name='''+trim(com_dwname.Text)
       +''' order by dw_leixing,dw_name';
  Ado_dwxxzz.Open;

  com_leixing.ItemIndex:=Ado_dwxxzz.fieldbyname('dw_leibie').AsInteger-1;


  //加载第0页信息
  Ado_zz.Close;
  Ado_zz.SQL.Text:='select * from bid_danwei_zizhi where DW_ID IN(SELECT DW_ID FROM bid_danwei_xinxi  '
       +' WHERE dw_name='''+trim(com_dwname.Text)+''')';
  Ado_zz.Open;
  memo_zizhi.Clear;
  if com_leixing.Text='施工' then
  begin
    memo_zizhi.Lines.Add('主要资质');
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_mlb').AsString+Ado_zz.fieldbyname('zz_main').asstring+Ado_zz.fieldbyname('zz_mjb').AsString);
    memo_zizhi.Lines.Add('-----------------------------------');
    memo_zizhi.Lines.Add('总承包资质');
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb1').AsString+Ado_zz.fieldbyname('zz_cbjb1').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb2').AsString+Ado_zz.fieldbyname('zz_cbjb2').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb3').AsString+Ado_zz.fieldbyname('zz_cbjb3').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb4').AsString+Ado_zz.fieldbyname('zz_cbjb4').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb5').AsString+Ado_zz.fieldbyname('zz_cbjb5').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb6').AsString+Ado_zz.fieldbyname('zz_cbjb6').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb7').AsString+Ado_zz.fieldbyname('zz_cbjb7').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb8').AsString+Ado_zz.fieldbyname('zz_cbjb8').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb9').AsString+Ado_zz.fieldbyname('zz_cbjb9').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb10').AsString+Ado_zz.fieldbyname('zz_cbjb10').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb11').AsString+Ado_zz.fieldbyname('zz_cbjb11').AsString);
    memo_zizhi.Lines.Add('-----------------------------------');
    memo_zizhi.Lines.Add('专业承包资质');
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_zylb1').AsString+Ado_zz.fieldbyname('zz_zyjb1').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_zylb2').AsString+Ado_zz.fieldbyname('zz_zyjb2').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_zylb3').AsString+Ado_zz.fieldbyname('zz_zyjb3').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_zylb4').AsString+Ado_zz.fieldbyname('zz_zyjb4').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_zylb5').AsString+Ado_zz.fieldbyname('zz_zyjb5').AsString);
  end
  else if com_leixing.text='监理' then
  begin
    memo_zizhi.Lines.Add('主要资质');
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_mlb').AsString+Ado_zz.fieldbyname('zz_mjb').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb1').AsString+Ado_zz.fieldbyname('zz_cbjb1').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb2').AsString+Ado_zz.fieldbyname('zz_cbjb2').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb3').AsString+Ado_zz.fieldbyname('zz_cbjb3').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb4').AsString+Ado_zz.fieldbyname('zz_cbjb4').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb5').AsString+Ado_zz.fieldbyname('zz_cbjb5').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb6').AsString+Ado_zz.fieldbyname('zz_cbjb6').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb7').AsString+Ado_zz.fieldbyname('zz_cbjb7').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb8').AsString+Ado_zz.fieldbyname('zz_cbjb8').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb9').AsString+Ado_zz.fieldbyname('zz_cbjb9').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb10').AsString+Ado_zz.fieldbyname('zz_cbjb10').AsString);
    memo_zizhi.Lines.Add(Ado_zz.fieldbyname('zz_cblb11').AsString+Ado_zz.fieldbyname('zz_cbjb11').AsString);
  end;

  //加载第2页信息
  edit42.Text:=Ado_zz.fieldbyname('zz_main').AsString;
  edit43.Text:=Ado_zz.fieldbyname('zz_mlb').AsString;
  edit44.Text:=Ado_zz.fieldbyname('zz_mjb').AsString;
  edit44.Text:=Ado_zz.fieldbyname('zz_mjb').AsString;
  edit14.Text:=Ado_zz.fieldbyname('zz_zsbh').AsString;
  edit45.Text:=Ado_zz.fieldbyname('zz_cblb1').AsString;
  edit46.Text:=Ado_zz.fieldbyname('zz_cbjb1').AsString;
  edit47.Text:=Ado_zz.fieldbyname('zz_cblb2').AsString;
  edit48.Text:=Ado_zz.fieldbyname('zz_cbjb2').AsString;
  edit49.Text:=Ado_zz.fieldbyname('zz_cblb3').AsString;
  edit50.Text:=Ado_zz.fieldbyname('zz_cbjb3').AsString;
  edit51.Text:=Ado_zz.fieldbyname('zz_cblb4').AsString;
  edit52.Text:=Ado_zz.fieldbyname('zz_cblb4').AsString;
  edit53.Text:=Ado_zz.fieldbyname('zz_cblb5').AsString;
  edit54.Text:=Ado_zz.fieldbyname('zz_cbjb5').AsString;
  edit55.Text:=Ado_zz.fieldbyname('zz_cblb6').AsString;
  edit56.Text:=Ado_zz.fieldbyname('zz_cbjb6').AsString;
  edit57.Text:=Ado_zz.fieldbyname('zz_cblb7').AsString;
  edit58.Text:=Ado_zz.fieldbyname('zz_cbjb7').AsString;
  edit59.Text:=Ado_zz.fieldbyname('zz_cblb8').AsString;
  edit60.Text:=Ado_zz.fieldbyname('zz_cbjb8').AsString;
  edit61.Text:=Ado_zz.fieldbyname('zz_cblb9').AsString;
  edit62.Text:=Ado_zz.fieldbyname('zz_cbjb9').AsString;
  edit63.Text:=Ado_zz.fieldbyname('zz_cblb10').AsString;
  edit64.Text:=Ado_zz.fieldbyname('zz_cbjb10').AsString;
  edit65.Text:=Ado_zz.fieldbyname('zz_cblb11').AsString;
  edit66.Text:=Ado_zz.fieldbyname('zz_cbjb11').AsString;
  edit16.Text:=Ado_zz.fieldbyname('zz_zylb1').AsString;
  edit17.Text:=Ado_zz.fieldbyname('zz_zyjb1').AsString;
  edit18.Text:=Ado_zz.fieldbyname('zz_zylb2').AsString;
  edit19.Text:=Ado_zz.fieldbyname('zz_zyjb2').AsString;
  edit20.Text:=Ado_zz.fieldbyname('zz_zylb3').AsString;
  edit21.Text:=Ado_zz.fieldbyname('zz_zyjb3').AsString;
  edit22.Text:=Ado_zz.fieldbyname('zz_zylb4').AsString;
  edit23.Text:=Ado_zz.fieldbyname('zz_zyjb4').AsString;
  edit24.Text:=Ado_zz.fieldbyname('zz_zylb5').AsString;
  edit25.Text:=Ado_zz.fieldbyname('zz_zyjb5').AsString;



  //加载第1页信息
  Edt_wangzhi.Text:=Ado_dwxxzz.fieldbyname('dw_wangzhi').AsString;
  edt_leixing.Text:=Ado_dwxxzz.fieldbyname('dw_leixing').Text;
  edt_yewu.Text:=Ado_dwxxzz.fieldbyname('dw_yewu').Text;
  edt_yyzch.Text:=Ado_dwxxzz.fieldbyname('dw_yyzz_id').Text;
  edt_yyfw.Text:=Ado_dwxxzz.fieldbyname('dw_yyfw').Text;
  edt_fzdw.Text:=Ado_dwxxzz.fieldbyname('dw_fzdw').Text;
  edt_zxdj.Text:=Ado_dwxxzz.fieldbyname('dw_qyzx_dj').Text;
  edt_zxbh.Text:=Ado_dwxxzz.fieldbyname('dw_qyzx_zsh').Text;
  edt_djdw.Text:=Ado_dwxxzz.fieldbyname('dw_fzdw_zsh').Text;
  edt_zxdj.Text:=Ado_dwxxzz.fieldbyname('dw_fzdw_zsh').Text;
  edt_khyh.Text:=Ado_dwxxzz.fieldbyname('dw_kh_yinhang').Text;
  edt_khname.Text:=Ado_dwxxzz.fieldbyname('dw_kh_zh').Text;
  edt_yhzh.Text:=Ado_dwxxzz.fieldbyname('DW_kh_name').Text;
  Memo_jianli.Text:=Ado_dwxxzz.fieldbyname('dw_jianli').Text;

  //加载第3页信息
  combobox2.Text:=Ado_dwxxzz.fieldbyname('dw_qyzc_sheng').AsString;
  edit69.Text:=Ado_dwxxzz.fieldbyname('dw_qyzc_code').AsString;
  edit70.Text:=Ado_dwxxzz.fieldbyname('dw_qyzc_adr').AsString;
  combobox3.Text:=Ado_dwxxzz.fieldbyname('dw_qyxx_sheng').AsString;
  edit72.Text:=Ado_dwxxzz.fieldbyname('dw_qyxx_code').AsString;
  edit73.Text:=Ado_dwxxzz.fieldbyname('dw_qyxx_adr').AsString;
  edit76.Text:=Ado_dwxxzz.fieldbyname('dw_jianli_time').AsString;
  edit77.Text:=Ado_dwxxzz.fieldbyname('DW_lx_phone').AsString;
  edit79.Text:=Ado_dwxxzz.fieldbyname('dw_email').AsString;
  edit80.Text:=Ado_dwxxzz.fieldbyname('dw_chuanzhen').AsString;
  edit81.Text:=Ado_dwxxzz.fieldbyname('DW_faren_name').AsString;
  edit82.Text:=Ado_dwxxzz.fieldbyname('dw_faran_zhiwu').AsString;
  edit83.Text:=Ado_dwxxzz.fieldbyname('DW_FAREN_zhicheng').AsString;
  edit84.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_name').AsString;
  edit85.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_zhiwu').AsString;
  edit86.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_zhicheng').AsString;
  edit84.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_name').AsString;
  edit85.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_zhiwu').AsString;
  edit86.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_zhicheng').AsString;
  edit87.Text:=Ado_dwxxzz.fieldbyname('dw_jishu_name').AsString;
  edit88.Text:=Ado_dwxxzz.fieldbyname('DW_JISHU_ZHIWU').AsString;
  edit89.Text:=Ado_dwxxzz.fieldbyname('DW_JISHU_ZHICHENG').AsString;
  edit8.Text:=Ado_dwxxzz.fieldbyname('dw_shigu_cishu').AsString;
  edit9.Text:=Ado_dwxxzz.fieldbyname('dw_shigu_sunshi').AsString;
  edit10.Text:=Ado_dwxxzz.fieldbyname('dw_shigu_siwang').AsString;
  edit26.Text:=Ado_dwxxzz.fieldbyname('dw_shigu_zhongshang').AsString;


  //加载第4页信息
  edit90.Text:=Ado_dwxxzz.fieldbyname('dw_cy_nmo').AsString;
  edit91.Text:=Ado_dwxxzz.fieldbyname('dw_tuixiu').AsString;
  edit92.Text:=Ado_dwxxzz.fieldbyname('dw_cy_pingjun').AsString;
  edit93.Text:=Ado_dwxxzz.fieldbyname('dw_guanli').AsString;
  edit41.Text:=Ado_dwxxzz.fieldbyname('dw_zz_above').AsString;
  edit162.Text:=Ado_dwxxzz.fieldbyname('dw_have_zhicheng').AsString;
  edit163.Text:=Ado_dwxxzz.fieldbyname('dw_zongji_zhicheng').AsString;
  edit164.Text:=Ado_dwxxzz.fieldbyname('dw_gaoji_zhicheng').AsString;
  edit95.Text:=Ado_dwxxzz.fieldbyname('DW_jishu_total').AsString;
  edit96.Text:=Ado_dwxxzz.fieldbyname('DW_JISHU_zhongji').AsString;
  edit97.Text:=Ado_dwxxzz.fieldbyname('dw_jishu_gaoji').AsString;
  edit98.Text:=Ado_dwxxzz.fieldbyname('dw_jishu_tuixiiu').AsString;
  edit103.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_total').AsString;
  edit104.Text:=Ado_dwxxzz.fieldbyname('DW_jingli_two').AsString;
  edit105.Text:=Ado_dwxxzz.fieldbyname('dw_jingli_one').AsString;
  edit106.Text:=Ado_dwxxzz.fieldbyname('DW_JINGLI_THREE').AsString;
  edit107.Text:=Ado_dwxxzz.fieldbyname('dw_sgy_total').AsString;
  edit110.Text:=Ado_dwxxzz.fieldbyname('dw_sgy_shanggang').AsString;
  edit108.Text:=Ado_dwxxzz.fieldbyname('dw_zjy_total').AsString;
  edit109.Text:=Ado_dwxxzz.fieldbyname('dw_zjy_shanggang').AsString;
  edit94.Text:=Ado_dwxxzz.fieldbyname('dw_ysy_total').AsString;
  edit112.Text:=Ado_dwxxzz.fieldbyname('dw_ysy_shanggan').AsString;
  edit110.Text:=Ado_dwxxzz.fieldbyname('dw_aay_total').AsString;
  edit113.Text:=Ado_dwxxzz.fieldbyname('dw_aay_shanggang').AsString;