unit_biaoduanlx.pas

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

unit Unit_biaoduanlx;

interface

uses
  Unit_GCZBParentform,SysUtils,Dialogs,Controls,adodb,db,QDialogs,windows,forms;

type
  Tfrm_biaoduanlx=class(Tfrm_GCZBParentform)
    procedure FormCreate(sender:tobject);
    procedure bb_UpdateClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure bb_AddClick(Sender: TObject);
    procedure bb_DeleteClick(Sender: TObject);
    procedure bb_SaveClick(Sender: TObject);
    procedure bb_CancelClick(Sender: TObject);
    private
      { Private declarations }
      ichoose:integer;
      gclx_id:integer;
    public
      { Public declarations }  end;

implementation

uses
  DataModule,DataAccessCommonShell,unit_public;

procedure Tfrm_biaoduanlx.FormCreate(Sender: TObject);
begin
  inherited;
  ichoose:=0;
  caption:='工程类型维护';
  panel2.Caption:='工程类型维护';
  label7.Caption:='工程类型';
  adoquery1.SQL.Text:='select gclx_id,gclx_name  from bid_gongcheng_leixing';
  adoquery1.Open;
  dbgrid1.Columns[0].Title.caption:='工程类型';
  dbgrid1.Columns[0].FieldName:='gclx_name';
  datasource1.OnDataChange:=DataSource1DataChange;
  bb_update.OnClick:=bb_updateclick;
  bb_add.OnClick:=bb_addclick;
  bb_delete.OnClick:=bb_deleteclick;
  bb_cancel.OnClick:=bb_cancelclick;
  bb_save.OnClick:=bb_saveclick;
end;

procedure Tfrm_biaoduanlx.bb_UpdateClick(Sender: TObject);
begin
  inherited;
  ichoose:=2;
  bb_save.Enabled:=true;
end;

procedure Tfrm_biaoduanlx.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  gclx_id:=adoquery1.fieldbyname('gclx_id').AsInteger;
  edit1.Text:=adoquery1.fieldbyname('gclx_name').AsString;
end;

procedure Tfrm_biaoduanlx.bb_AddClick(Sender: TObject);
begin
  inherited;
  ichoose:=1;
  bb_save.Enabled:=TRUE;
end;

procedure Tfrm_biaoduanlx.bb_DeleteClick(Sender: TObject);
var
  ssql:string;
begin
  inherited;
  if gclx_id=0 then exit;
  if application.MessageBox('该操作会对已存在的数据造成影响','请确定',mb_yesno)<>mryes then exit;
  ssql:=' delete from bid_xmgczb where gclx_id='+trim(inttostr(gclx_id))
        +'delete from bid_gongcheng_leixing where gclx_id='+trim(inttostr(gclx_id));
  if DelAddIns(ssql)=true then
  begin
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

procedure Tfrm_biaoduanlx.bb_SaveClick(Sender: TObject);
var
  ssql:string;
begin
  inherited;
  if application.MessageBox('确认名字在列表中唯一','请确认',mb_yesno)<>mryes then  exit;
  if  Ichoose=1 then
  begin
    ssql :='insert into bid_gongcheng_leixing(gclx_name) values('''+trim(edit1.Text)+''')'
       +' insert into bid_xmgczb(xm_isbn,gclx_id,zblx_id,yaohao_cs) select c.xm_isbn,a.gclx_id,b.zblx_id,'
       +' 10 from (select gclx_id from bid_gongcheng_leixing where gclx_name='''
       +trim(edit1.Text)+''') a,bid_zhaobiao_leixing b,bid_xiangmu_xinxi c';

  end;
  if  Ichoose=2 then
  begin
    ssql :='update bid_gongcheng_leixing set '
          +'gclx_name='''+trim(edit1.Text)+''' where gclx_id='
          +trim(inttostr(gclx_id));
  end;
  if DelAddIns(ssql)=true then
  begin
    bb_save.Enabled:=false;
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

procedure Tfrm_biaoduanlx.bb_CancelClick(Sender: TObject);
begin
  inherited;
end;

end.