modigz.pas

来自「欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例」· PAS 代码 · 共 77 行

unit modigz;

interface

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

type
  Tmodigz_Form = class(TForm)
    gzmc_LEdit: TLabeledEdit;
    gzje_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    procedure cmdcloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modigz_Form: Tmodigz_Form;

implementation

uses gzgl, main;

{$R *.dfm}

procedure Tmodigz_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tmodigz_Form.FormShow(Sender: TObject);
begin
    try
    gzmc_LEdit.Text:=gzgl_Form.ListView1.Selected.Caption;
    gzje_LEdit.Text:=gzgl_Form.ListView1.Selected.SubItems[0];
    except
    end;
end;

procedure Tmodigz_Form.cmdokClick(Sender: TObject);
var
    gzje,gzdm,gzbh,ygbh,sqlstr:string;
begin
    if MessageDlg('确认要修改该员工的工资吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        gzbh:=trim(gzgl_Form.gzbh_LEdit.Text);
        ygbh:=trim(gzgl_Form.ygbh_LEdit.Text);
        gzdm:=trim(gzgl_Form.ListView1.Selected.SubItems[1]);
        gzje:=trim(gzje_LEdit.Text);
        sqlstr:='update gzb set gzje='''+gzje+''' where(gzbh='''+gzbh;
        sqlstr:=sqlstr+''')and(ygbh='''+ygbh+''')and(gzdm='''+gzdm+''')';
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            finally
            Free;
            end;
        end;
        ShowMessage('成功修改工资信息');
        gzgl_Form.cmdok.Click;
        Close;
    end;
end;

end.