u_zhaobiaolx.pas

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

unit U_zhaobiaolx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Grids, DBGrids, DB, ADODB;

type
  Tf_zhaobiaolx = class(TForm)
    Label1: TLabel;
    Edt_name: TEdit;
    Panel2: TPanel;
    ADOCommand1: TADOCommand;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    btn_Add: TBitBtn;
    btn_Update: TBitBtn;
    btn_Delete: TBitBtn;
    btn_Save: TBitBtn;
    btn_Cancel: TBitBtn;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure btn_DeleteClick(Sender: TObject);
    procedure btn_UpdateClick(Sender: TObject);
    procedure btn_AddClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure btn_SaveClick(Sender: TObject);
  private
    { Private declarations }
    zhaobiao_id :Integer; //记录当前列在数据库中序号
    iChoose     :Integer; //选择操作，1：增加，2：修改

  public
    { Public declarations }
  end;

var
  f_zhaobiaolx: Tf_zhaobiaolx;

implementation

uses
  DataModule,DataAccessCommonShell;

{$R *.dfm}

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

procedure Tf_zhaobiaolx.FormDestroy(Sender: TObject);
begin
  f_zhaobiaolx:=nil;
end;

procedure Tf_zhaobiaolx.btn_CancelClick(Sender: TObject);
begin
  btn_save.Enabled:=false;
end;

procedure Tf_zhaobiaolx.btn_DeleteClick(Sender: TObject);
var
  ssql:string;
begin
  if zhaobiao_id=0 then exit;
  showmessage(inttostr(zhaobiao_id));
  ssql:='delete from bid_zhaobiao_leixingwhere zhaobiao_ID='+trim(Inttostr(zhaobiao_id));
  if DelAddInS(ssql) then
  begin
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

procedure Tf_zhaobiaolx.btn_UpdateClick(Sender: TObject);
begin
  ichoose:=2;
  btn_save.enabled:=true;
end;

procedure Tf_zhaobiaolx.btn_AddClick(Sender: TObject);
begin
   ichoose:=1;
   btn_save.Enabled:=true;
end;

procedure Tf_zhaobiaolx.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  zhaobiao_id:=adoquery1.fieldbyname('zhaobiao_id').asInteger;
  Edt_name.text:=adoquery1.fieldbyname('zhaobiao_name').asString;
end;

procedure Tf_zhaobiaolx.btn_SaveClick(Sender: TObject);
var
  ssql:string;
begin
  if ichoose=1 then
    ssql:='insert into com_zhaobiaolx(zhaobiao_name) values('''
              +trim(edt_name.text)+''')';
  if ichoose=2 then
    ssql:='update bid_zhaobiao_leixingset zhaobiao_name='''+trim(edt_name.text)
                 +''' where zhaobiao_id='+inttostr(zhaobiao_id);
  if DelAddInS(ssql) then
  begin
    btn_save.enabled:=false;
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

end.