frmygxx.~pas

这是一个间歇的小唾弃,希望大家希望,以后大家多学习,多多交流共同进步

unit frmYGXX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, DBCtrls;

type
  TfrmYuangxx = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    edtYGH: TEdit;
    Label2: TLabel;
    edtName: TEdit;
    Label3: TLabel;
    combGZ: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    btContinueAddYGXX: TButton;
    btOKYGXX: TButton;
    btCancelYGXX: TButton;
    dbnYGXX: TDBNavigator;
    combBM: TComboBox;
    procedure btOKYGXXClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmYuangxx: TfrmYuangxx;

implementation

uses datamodule, unitComment, frmMain;

{$R *.dfm}

procedure TfrmYuangxx.btOKYGXXClick(Sender: TObject);
begin
    if edtYGH.Text ='' then begin
       showmessage('员工号不能为空!');
       edtYGH.SetFocus;
       exit;
    end;
    if edtName.Text ='' then begin
       showmessage('员工姓名不能为空!');
       edtName.SetFocus;
       exit;
    end;
    if frmMain.Judge then begin
       with dm.qryYGXX do begin
            dm.qryYGXX.Append;
            dm.qryYGXX.FieldValues['ygh']:=edtYGH.Text ;
            dm.qryYGXX.FieldValues['xm']:=self.edtName.Text ;
            dm.qryYGXX.FieldValues['agz']:=self.combGZ.ItemIndex+1;
            dm.qryYGXX.FieldValues['bm']:=self.combBM.Text ;
            dm.qryYGXX.FieldValues['gzsj']:=self.DateTimePicker1.Date;
            dm.qryYGXX.Post;
       end;
    end;
end;
end.