xiugai.~pas

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

unit xiugai;

interface

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

type
  TXG = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    OK: TButton;
    Update: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Memo1: TMemo;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label5: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    procedure OKClick(Sender: TObject);
    procedure UpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XG: TXG;

implementation

uses Datamodal, Unit1;

{$R *.dfm}

procedure TXG.OKClick(Sender: TObject);
Var
    Xh,Sql:String;
begin
    Xh:=Edit1.Text;
    Sql:='select * from XS where XH ='+''''+Xh+'''';
    XSCJDM.XSCJADODataSet.Active:=false;
    XSCJDM.XSCJADODataSet.CommandText:=Sql;
    XSCJDM.XSCJADODataSet.Active:=true;
    if  (XSCJDM.XSCJADODataSet.FieldValues['XH']<> NULL)  then
        begin
          Edit2.Text:=XSCJDM.XSCJADODataSet.FieldValues['XH'];
          Edit3.Text:=XSCJDM.XSCJADODataSet.FieldValues['XM'];
          Edit4.Text:=XSCJDM.XSCJADODataSet.FieldValues['CSSJ'];
          Edit5.Text:=XSCJDM.XSCJADODataSet.FieldValues['ZY'];
          Edit6.Text:=XSCJDM.XSCJADODataSet.FieldValues['ZXF'];
          Memo1.Text:=XSCJDM.XSCJADODataSet.FieldValues['BZ'];
          if (XSCJDM.XSCJADODataSet.FieldValues['XB']<> 0) then
             RadioButton1.Checked:=true
          else
             RadioButton2.Checked:=true

        end
    else
        showmessage('要修改的记录不存在');
end;

procedure TXG.UpdateClick(Sender: TObject);
Var
    Xh,Xm,Xb,Cssj,Zy,Zxf,Bz,Sql1,Sql2:string;
begin
    Xh:=Edit2.Text;
    Xm:=Edit3.Text;
    if  RadioButton1.Checked=true  then
        Xb:='1'
    else
        Xb:='0';
    Zy:=Edit5.Text;
    Cssj:=Edit4.Text;
    Zxf:=Edit6.Text;
    Bz:=Memo1.Text;
    //判断要插入的学生记录是否存在
    //Sql1:='delete  from XS where XH ='+''''+Xh+'''';
    //XSCJDM.XSCJADOCommand.CommandText:=Sql1;
    //XSCJDM.XSCJADOCommand.Execute;
    //sql2:='Insert XS values('''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''','''+Zy+''','+Zxf+','''+Bz+''')';
    Sql1:='update XS  set XM='+''''+Xm+''',XB='+''+Xb+',CSSJ='+''''+cssj+'''';
    XSCJDM.XSCJADOCommand.CommandText:=Sql1;
    XSCJDM.XSCJADOCommand.Execute;
    showmessage('修改成功!')
end;

end.