charu.pas

这是用delphi作的人力资源管理系统

unit charu;

interface

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

type
  TCR1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Memo1: TMemo;
    Label5: TLabel;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit3: TEdit;
    Edit5: TEdit;
    Label7: TLabel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Insert_Click: TButton;
    return: TButton;
    procedure Insert_ClickClick(Sender: TObject);
    procedure returnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CR1: TCR1;

implementation

uses Unit1, Datamodal;

{$R *.dfm}

procedure TCR1.Insert_ClickClick(Sender: TObject);
Var
    Xh,Xm,Xb,Cssj,Zy,Zxf,Bz,Sql1,Sql2:string;
begin
    Xh:=Edit1.Text;
    Xm:=Edit2.Text;
    if  RadioButton1.Checked=true  then
        Xb:='1'
    else
        Xb:='0';
    Zy:=Edit4.Text;
    //Cssj:=Edit3.Text;
    Zxf:=Edit5.Text;
    Bz:=Memo1.Text;

    //判断要插入的学生记录是否存在
    Sql1:='select XH from XS where XH ='+''''+Xh+'''';
    XSCJDM.XSCJADODataSet.Active:=false;
    XSCJDM.XSCJADODataSet.CommandText:=Sql1;
    XSCJDM.XSCJADODataSet.Active:=true;
    if  (XSCJDM.XSCJADODataSet.FieldValues['XH']<> NULL)  then //如果记录存在，则不准插入
         showmessage('该学生记录已存在!')
    else
        begin
            sql2:='Insert XS values('''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''','''+Zy+''','+Zxf+','''+Bz+''')';
            XSCJDM.XSCJADOCommand.CommandText:=Sql2;
            XSCJDM.XSCJADOCommand.Execute;
            showmessage('插入成功!')
        end;

end;

procedure TCR1.returnClick(Sender: TObject);
begin
    XSCJGL.Visible:=true;
    CR1.Close;
end;

end.