setzc.pas

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

unit setzc;

interface

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

type
  Tsetzc_Form = class(TForm)
    GroupBox1: TGroupBox;
    je_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure cmdcloseClick(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setzc_Form: Tsetzc_Form;

implementation

uses main;

{$R *.dfm}

procedure Tsetzc_Form.FormCreate(Sender: TObject);
begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select * from zcdm order by zcdm');
    Query1.Open;
    if Query1.RecordCount> 0 then
        cmdok.Enabled:=true
    else
        cmdok.Enabled:=false;
end;

procedure Tsetzc_Form.DBGrid1CellClick(Column: TColumn);
begin
    je_LEdit.Text:=Query1.fieldbyname('zcgz').AsString;
end;

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

procedure Tsetzc_Form.cmdokClick(Sender: TObject);
var
    zcdm,sqlstr,zcgz:string;
begin
    try
    zcgz:=trim(je_LEdit.Text);
    if strtofloat(zcgz) <= 0 then
    begin
        ShowMessage('请输入正确的职称工资标准');
        exit;
    end;
    zcdm:=Query1.fieldbyname('zcdm').AsString;
    sqlstr:='update zcdm set zcgz='''+zcgz+''' where(zcdm='''+zcdm+''')';
    with TQuery.Create(nil) do
    try
    Close;
    SQL.Clear;
    SQL.Add(sqlstr);
    ExecSQL;
    finally
    Free;
    end;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select * from zcdm order by zcdm');
    Query1.Open;
    if Query1.RecordCount> 0 then
        cmdok.Enabled:=true
    else
        cmdok.Enabled:=false;
    except
    ShowMessage('请输入合法的职务工资！');
    end;
end;

end.