unit_zhaobiaolx.pas

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

unit Unit_zhaobiaolx;

interface

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

type
  tfrm_zhaobiaolx=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;
      zblx_id:integer;
    public
      { Public declarations }
  end;

implementation

uses
  datamodule,unit_public,DataAccessCommonShell;

procedure tfrm_zhaobiaolx.FormCreate(Sender: TObject);
begin
  inherited;
  ichoose:=0;
  caption:='招标类型维护';
  panel2.Caption:='招标类型维护';
  label7.Caption:='招标类型';
  adoquery1.SQL.Text:='select zblx_id,zblx_name from bid_zhaobiao_leixing ';
  adoquery1.Open;
  dbgrid1.Columns[0].Title.caption:='招标类型';
  dbgrid1.Columns[0].FieldName:='zblx_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_zhaobiaolx.bb_UpdateClick(Sender: TObject);
begin
  inherited;
  ichoose:=2;
  bb_save.Enabled:=true;
end;

procedure tfrm_zhaobiaolx.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  zblx_id:=adoquery1.fieldbyname('zblx_id').AsInteger;
  edit1.Text:=adoquery1.fieldbyname('zblx_name').AsString;
end;

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

procedure tfrm_zhaobiaolx.bb_DeleteClick(Sender: TObject);
var
  ssql:string;
begin
  inherited;

  if zblx_id=0 then exit;
  if application.MessageBox('该操作会对已存在的数据造成影响','请确定',MB_YESNO)<>mryes then exit;
  ssql:=' delete from bid_xmgczb where zblx_id='+trim(inttostr(zblx_id))
      +'delete from bid_zhaobiao_leixing where zblx_id='+trim(inttostr(zblx_id));
  if DelAddIns(ssql)=true then
  begin
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

procedure tfrm_zhaobiaolx.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_zhaobiao_leixing(zblx_name) values('''+trim(edit1.Text)+''')'
                           +' insert into bid_xmgczb(xm_isbn,gclx_id,zblx_id,yaohao_cs) select c.xm_isbn,b.gclx_id,a.zblx_id,10 '
                           +' from (select zblx_id from bid_zhaobiao_leixing where zblx_name='''
                           +trim(edit1.Text)+''') a,bid_gongcheng_leixing b,bid_xiangmu_xinxi c';

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

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

end.