groupupdate.pas

专家抽取系统1.0 是用Delphi6.0 开发的一款用于招投标,评审过程中从专家库中抽取专家的软件。可以将抽取结果导入到Excel或Word文档中

unit GroupUpdate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB;

type
  TfrmGroupUpdate = class(TForm)
    btnSave: TButton;
    btnCancel: TButton;
    btnUpdate: TButton;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnUpdateClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGroupUpdate: TfrmGroupUpdate;

implementation

uses Main;

{$R *.dfm}

procedure TfrmGroupUpdate.FormCreate(Sender: TObject);
begin
//  frmMain.ADOTblGroup. 
  btnUpdateClick(btnUpdate);
end;

procedure TfrmGroupUpdate.btnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmGroupUpdate.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmMain.ADOTblGroup.Cancel;
end;

procedure TfrmGroupUpdate.btnUpdateClick(Sender: TObject);
begin
  frmMain.ADOTblGroup.Edit;
end;

procedure TfrmGroupUpdate.btnSaveClick(Sender: TObject);
begin
  if VarIsnull(DBedit2.Text) then
  begin
    Application.MessageBox('[组 名] 为空值,没有输入,无法保存','提示信息',MB_OK);
    exit;
  end;
  if Trim(DBedit2.Text)='' then
  begin
    Application.MessageBox('[组 名] 没有输入,无法保存','提示信息',MB_OK);
    exit;
  end;

  frmMain.ADOTblGroup.post;
  //刷新主界面的Listview的Item
  with frmMain.ListView1 do
  begin
    ItemFocused.Caption :=VarToStr(frmMain.ADOTblGroup.FieldValues['组名']);
  end;

  btnCancelClick(btnCancel);
end;

end.