unit_zhuanjiaxx.pas

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

unit Unit_zhuanjiaxx;

interface

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

type
  TFrm_zhuanjiaxx = class(TForm)
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    btn_add: TBitBtn;
    btn_modify: TBitBtn;
    btn_del: TBitBtn;
    btn_save: TBitBtn;
    btn_cancel: TBitBtn;
    edt_Name: TEdit;
    Edt_BirthDay: TEdit;
    Edt_edu: TEdit;
    Edt_Adress: TEdit;
    Edt_Phone: TEdit;
    Edt_Email: TEdit;
    Com_gender: TComboBox;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Edt_danwei: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edt_Code: TEdit;
    Label9: TLabel;
    Edt_zhiwu: TEdit;
    Label11: TLabel;
    Edt_zhicheng: TEdit;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure btn_modifyClick(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure btn_saveClick(Sender: TObject);
  private
    { Private declarations }
    iChoose:Integer;
    zj_id  :integer;//专家ID
  public
    { Public declarations }
  end;

var
  Frm_zhuanjiaxx: TFrm_zhuanjiaxx;

implementation

uses
  DataAccessCommonShell,Unit_Public;
{$R *.dfm}

procedure TFrm_zhuanjiaxx.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=Cafree;
end;

procedure TFrm_zhuanjiaxx.FormDestroy(Sender: TObject);
begin
  frm_zhuanjiaxx:=nil;
end;

procedure TFrm_zhuanjiaxx.btn_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_zhuanjiaxx.FormCreate(Sender: TObject);
begin
  adoquery1.Active:=true;
  iChoose:=0;
end;

procedure TFrm_zhuanjiaxx.btn_addClick(Sender: TObject);
begin
  btn_modify.Enabled:=false;
  btn_Del.Enabled:=false;
  btn_Save.Enabled:=true;
  ichoose:=1;
  edt_name.Enabled:=true;
end;

procedure TFrm_zhuanjiaxx.btn_modifyClick(Sender: TObject);
begin
  btn_Add.Enabled:=false;
  btn_Del.Enabled:=false;
  btn_Save.Enabled:=true;
  ichoose:=2;
end;

procedure TFrm_zhuanjiaxx.btn_delClick(Sender: TObject);
var
  sSQL:string;
begin
  if zj_id=0 then exit;
  ssql:='delete from bid_zhuanjia where zj_id='+trim(inttostr(zj_id));
  if DelAddInS(ssql) then
  begin
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

procedure TFrm_zhuanjiaxx.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  zj_id:=adoquery1.fieldbyname('zj_id').AsInteger;
  edt_name.Text:=adoquery1.fieldbyname('zj_name').asstring;
  edt_birthday.Text:=adoquery1.fieldbyname('zj_birthday').AsString;
  com_gender.Text:=adoquery1.fieldbyname('zj_sex').AsString;
  edt_phone.Text:=adoquery1.fieldbyname('zj_phone').asstring;
  edt_adress.text:=adoquery1.fieldbyname('zj_adress').AsString;
  edt_code.Text:=adoquery1.fieldbyname('zj_code').AsString;
  edt_zhiwu.Text:=adoquery1.fieldbyname('zj_zhiwu').asstring;
  edt_zhicheng.Text:=adoquery1.fieldbyname('zj_zhicheng').AsString;
  edt_EDU.Text:=adoquery1.fieldbyname('zj_education').AsString;
  edt_danwei.Text:=adoquery1.fieldbyname('zj_danwei').AsString;
  edt_email.Text:=adoquery1.fieldbyname('zj_email').AsString;
end;

procedure TFrm_zhuanjiaxx.btn_saveClick(Sender: TObject);
var
  ssql:string;
begin
  btn_Add.Enabled:=true;
  btn_modify.Enabled:=true;
  btn_Del.Enabled:=true;
  btn_save.enabled:=false;
  if ichoose=1 then
     ssql:='insert into bid_zhuanjia(zj_name ,zj_birthday ,zj_sex ,'
          +' zj_phone ,zj_adress ,zj_code ,zj_zhiwu ,zj_zhicheng, zj_education'
          +' ,zj_danwei, zj_email) values('''+trim(edt_name.Text)+''','''
          +trim(edt_birthday.Text)+''','''+trim(com_gender.Text)+''','''
          +trim(edt_phone.Text)+''','''+trim(edt_adress.Text)+''','''
          +trim(edt_code.Text)+''','''+trim(edt_zhiwu.Text)+''','''+trim(edt_zhicheng.Text)
          +''','''+trim(edt_edu.Text)+''','''+trim(edt_danwei.Text)+''','''
          +trim(edt_email.Text)+''')';
  if ichoose=2 then
      ssql:='update bid_zhuanjia set zj_name='''+trim(edt_name.Text)+''',zj_birthday='''
          +trim(edt_birthday.Text)+''',zj_sex='''+trim(com_gender.Text)+''',zj_phone='''
          +trim(edt_phone.Text)+''',zj_adress='''+trim(edt_adress.Text)+''',zj_code='''
          +trim(edt_code.Text)+''',zj_zhiwu='''+trim(edt_zhiwu.Text)+''',zj_zhicheng='''+trim(edt_zhicheng.Text)
          +''',zj_education='''+trim(edt_edu.Text)+''',zj_danwei='''+trim(edt_danwei.Text)+''',zj_email='''
          +trim(edt_email.Text)+''' where zj_id='+trim(inttostr(zj_id));
  if DelAddInS(ssql) then
  begin
    edt_name.Enabled:=false;
    adoquery1.Close;
    adoquery1.Open;
  end;

end;

end.