charu1.pas

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

unit charu1;

interface

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

type
  TCR2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    OK: TButton;
    return: TButton;
    procedure OKClick(Sender: TObject);
    procedure returnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CR2: TCR2;

implementation

uses Unit1, Datamodal;

{$R *.dfm}

procedure TCR2.OKClick(Sender: TObject);
Var
    Xh,Kch,Cj,Xf,Sql1,Sql2,Sql3,Temp1,Temp2:string;
begin
    Xh:=Edit1.Text;
    Kch:=Edit2.Text;
    Cj:=Edit3.Text;

    //判断要插入成绩的学生记录是否存在
    Sql1:='select XH from XS where XH ='+''''+Xh+'''';
    XSCJDM.XSCJADODataSet.Active:=false;
    XSCJDM.XSCJADODataSet.CommandText:=Sql1;
    XSCJDM.XSCJADODataSet.Active:=true;
    Temp1:=XSCJDM.XSCJADODataSet.FieldValues['XH'];
    //如果该学生记录存在
    if  (Temp1 <> NULL)  then
        begin
            Sql2:='select KCH,XF from KC where KCH ='+''''+Kch+'''';
            XSCJDM.XSCJADODataSet.Active:=false;
            XSCJDM.XSCJADODataSet.CommandText:=Sql2;
            XSCJDM.XSCJADODataSet.Active:=true;
            Temp2:=XSCJDM.XSCJADODataSet.FieldValues['KCH'];
            Xf:=XSCJDM.XSCJADODataSet.FieldValues['XF'];
            showmessage(''''+Xf+'''');
            //如果该课程号存在
            if  (Temp2 <> NULL)  then
                begin
                  sql3:='Insert XS_KC values('''+Xh+''','''+Kch+''','+Cj+','+Xf+')';
                  XSCJDM.XSCJADOCommand.CommandText:=Sql3;
                  XSCJDM.XSCJADOCommand.Execute;
                  showmessage('插入成功!')
                end;
        end;

end;


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

end.