expertupdate.pas

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

unit ExpertUpdate;

interface

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

type
  TfrmExpertUpdate = class(TForm)
    DataSource1: TDataSource;
    DBComboBox1: TDBComboBox;
    ADOQryExpert: TADOQuery;
    ADOQryExpertID: TWideStringField;
    ADOQryExpertID2: TWideStringField;
    ADOQryExpertDSDesigner2: TWideStringField;
    ADOQryExpertDSDesigner3: TWideStringField;
    ADOQryExpertDSDesigner4: TDateTimeField;
    ADOQryExpertDSDesigner5: TWideStringField;
    ADOQryExpertDSDesigner6: TWideStringField;
    ADOQryExpertDSDesigner7: TWideStringField;
    ADOQryExpertDSDesigner8: TWideStringField;
    ADOQryExpertDSDesigner9: TWideStringField;
    ADOQryExpertDSDesigner10: TWideStringField;
    ADOQryExpertDSDesigner: TBooleanField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    btnSave: TButton;
    btnCancel: TButton;
    btnUpdate: TButton;
    ADOQryExpertDSDesigner11: TWideStringField;
    Label12: TLabel;
    DBComboBox2: TDBComboBox;
    Label2: TLabel;
    DBComboBox3: TDBComboBox;
    ADOQryGroup: TADOQuery;
    DatTimePicker: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure btnUpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExpertUpdate: TfrmExpertUpdate;

implementation

uses Main;
{$R *.dfm}

procedure TfrmExpertUpdate.FormCreate(Sender: TObject);
begin

  with ADOQryGroup do begin
    Connection:=frmMain.ADOConnection1;
    Close;
    SQL.Clear;
    SQL.Add('select * from ExpertGroup Order by 组ID asc');
    Prepared :=true;
    Open;   //select语句需用Open方法执行
  end;

  ADOQryGroup.First;
  while not ADOQryGroup.Eof do
  begin
    DBComboBox3.Items.Add(varToStr(ADOQryGroup.FieldValues['组ID']));
    ADOQryGroup.Next;
  end;
  //初始化DatTimePicker
  DatTimePicker.ShowCheckbox :=true;
  DatTimePicker.Date :=date;
  if varIsNull(frmMain.ADOQryExpert.FieldValues['出生日期']) then
    DatTimePicker.Checked :=false
  else
  begin
    DatTimePicker.Checked :=True;
    DatTimePicker.Date :=frmMain.ADOQryExpert.FieldValues['出生日期'];
  end;
  btnUpdateClick(btnUpdate);
end;

procedure TfrmExpertUpdate.btnSaveClick(Sender: TObject);
begin
{
  ADOQryExpert.post;
  //刷新主界面的专家表
  frmMain.ADOQryExpert.Active :=false;
  frmMain.ADOQryExpert.Active :=True;
  btnCancelClick(btnCancel);
}
  if VarIsnull(DBedit4.Text) then
  begin
    Application.MessageBox('[姓名] 为空值,没有输入,无法保存','提示信息',MB_OK);
    exit;
  end;
  if Trim(DBedit4.Text)='' then
  begin
    Application.MessageBox('[姓名] 没有输入,无法保存','提示信息',MB_OK);
    exit;
  end;
  if DatTimePicker.Checked then
    frmMain.ADOQryExpert.FieldValues['出生日期'] :=DatTimePicker.Date
  else
    frmMain.ADOQryExpert.FieldValues['出生日期'] :=Null;
    
  frmMain.ADOQryExpert.post;
  frmMain.DBGrid1.Refresh;
  btnCancelClick(btnCancel);
end;

procedure TfrmExpertUpdate.btnCancelClick(Sender: TObject);
begin
  close;
end;

procedure TfrmExpertUpdate.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //ADOQryExpert.Cancel;
  frmMain.ADOQryExpert.Cancel;
end;

procedure TfrmExpertUpdate.FormShow(Sender: TObject);
begin
  frmExpertUpdate.Caption :='修改专家 -- [' + sGGroupName + ']' ;
end;

procedure TfrmExpertUpdate.btnUpdateClick(Sender: TObject);
begin
  //ADOQryExpert.edit;
  frmMain.ADOQryExpert.Edit;
end;

end.