u_xmxinxi.pas

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

unit U_XMXinXi;

interface

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

type
  TF_XMXinXi = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Edt_Name: TEdit;
    Edt_end: TEdit;
    Edt_yzdw: TEdit;
    Edt_method: TEdit;
    bb_Cancel: TBitBtn;
    bb_Add: TBitBtn;
    bb_Save: TBitBtn;
    bb_Update: TBitBtn;
    bb_Delete: TBitBtn;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edt_zbdw: TEdit;
    Edt_length: TEdit;
    Label7: TLabel;
    Edt_start: TEdit;
    Memo_ms: TMemo;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure bb_CancelClick(Sender: TObject);
    procedure bb_UpdateClick(Sender: TObject);
    procedure bb_AddClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure bb_DeleteClick(Sender: TObject);
    procedure bb_SaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    iChoose :Integer; //选择操作，1：增加，2：修改
    XM_ISBN :string;
  public
    { Public declarations }
  end;

var
  F_XMXinXi: TF_XMXinXi;

implementation

uses
  DataModule,DataAccessCommonShell,unit_public;

{$R *.dfm}

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

procedure TF_XMXinXi.FormDestroy(Sender: TObject);
begin
  F_XMXinXi:=nil;
end;

procedure TF_XMXinXi.bb_CancelClick(Sender: TObject);
begin
  bb_Add.Enabled:=true;
  bb_Update.Enabled:=true;
  bb_Delete.Enabled:=true;
  bb_save.Enabled:=false;
end;

procedure TF_XMXinXi.bb_UpdateClick(Sender: TObject);
begin
  bb_Add.Enabled:=false;
  bb_Delete.Enabled:=false;
  bb_Save.Enabled:=true;
  ichoose :=2;
  bb_save.Enabled :=true;
end;

procedure TF_XMXinXi.bb_AddClick(Sender: TObject);
begin
  bb_Update.Enabled:=false;
  bb_Delete.Enabled:=false;
  bb_Save.Enabled:=true;
  iChoose :=1;
  bb_save.Enabled :=true;
  edt_name.Enabled :=true;
end;

procedure TF_XMXinXi.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  with adoquery1 do
  begin
    XM_ISBN:=fieldbyname('xm_isbn').asstring;
    edt_name.Text:=fieldbyname('xm_name').AsString;
    edt_yzdw.Text:=fieldbyname('xm_yzdw').AsString;
    edt_zbdw.text:=fieldbyname('xm_zbdw').AsString;
    edt_length.Text:=fieldbyname('xm_length').AsString;
    edt_start.Text:=fieldbyname('xm_qidianzh').asstring;
    edt_end.Text:=fieldbyname('xm_zhongdianzh').AsString;
    edt_method.Text:=fieldbyname('xm_pingbiaoff').AsString;
    Memo_ms.text:=fieldbyname('xm_miaoshu').AsString;
  end;
end;

procedure TF_XMXinXi.bb_DeleteClick(Sender: TObject);
var
 sSQL:string;
begin
  if XM_ISBN='' then exit;
  if application.MessageBox('该操作会对已存在的数据造成影响','请确定',mb_yesno)<>mryes then exit;  
  ssql:=' delete from bid_xmgczb where xm_isbn='''+trim(XM_ISBN)+''''
     +'delete from bid_xiangmu_xinxi where xm_isbn='''+trim(XM_ISBN)+'''';
  if DelAddInS(ssql) then
  begin
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

procedure TF_XMXinXi.bb_SaveClick(Sender: TObject);
var
  Adoquery:tadoquery;
  sSQL,sStr:string;
begin
  bb_Add.Enabled:=true;
  bb_Update.Enabled:=true;
  bb_Delete.Enabled:=true;
  if  Ichoose=1 then
  begin
    adoquery:=tadoquery.Create(nil);
    try
      adoquery.Close;
      adoquery.connection:=datamodule1.ADOMainConn;
      adoquery.sql.clear;
      adoquery.sql.text:='select max(xm_isbn) as xm_isbn from bid_xiangmu_xinxi ';
      adoquery.open;
      sstr:=adoquery.fieldbyname('xm_isbn').asstring;
      if sstr='' then sstr:='0';
      sstr:=inttostr(strtoint(sstr)+1);
      sstr:=format_str(sstr);
    finally
      freeandnil(adoquery);
    end;
    ssql :='insert into bid_xiangmu_xinxi(xm_isbn,xm_name,xm_yzdw,xm_zbdw,xm_length,'
                           +' xm_qidianzh,xm_zhongdianzh,xm_pingbiaoff,xm_miaoshu) values('''+trim(sstr)+''','''+trim(edt_name.Text)
                           +''','''+trim(edt_yzdw.Text)+''','''+trim(edt_zbdw.Text)
                           +''','''+trim(edt_length.Text)+''','''+trim(edt_start.text)+''','''
                           +trim(edt_end.Text)+''','''+trim(edt_method.Text)+''','''
                           +trim(memo_ms.Text)+''')'
                           +' insert into bid_xmgczb(xm_isbn,gclx_id,zblx_id,yaohao_cs) select '''+trim(sstr)+''',gclx_id,zblx_id '
                           +',10 from bid_gongcheng_leixing,bid_zhaobiao_leixing ';

  end;
  if  Ichoose=2 then
  begin
    ssql :='update bid_xiangmu_xinxi set '
                  +'xm_yzdw='''+trim(edt_yzdw.Text)+''',xm_zbdw='''+trim(edt_zbdw.text)
                  +''',xm_length='''+trim(edt_length.Text)+''',xm_qidianzh='''+trim(edt_start.Text)
                  +''',xm_zhongdianzh='''+trim(edt_end.Text)+''',xm_pingbiaoff='''+trim(edt_method.Text)
                  +''',xm_miaoshu='''+trim(memo_ms.Text)+''' where xm_isbn='''+trim(XM_ISBN)+'''';
  end;
  if DelAddIns(ssql)=true then
  begin
    edt_name.Enabled:=false;
    bb_save.Enabled:=false;
    adoquery1.Close;
    adoquery1.Open;
  end;

end;

procedure TF_XMXinXi.FormCreate(Sender: TObject);
begin
  adoquery1.Active:=true;
end;

end.