setzw.pas

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

unit setzw;

interface

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

type
  Tsetzw_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
  setzw_Form: Tsetzw_Form;

implementation

uses main;

{$R *.dfm}

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

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

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

procedure Tsetzw_Form.cmdokClick(Sender: TObject);
var
    zwdm,sqlstr,zwgz:string;
begin
    try
    zwgz:=trim(je_LEdit.Text);
    if strtofloat(zwgz) <= 0 then
    begin
        ShowMessage('请输入正确的职务工资标准');
        exit;
    end;
    zwdm:=Query1.fieldbyname('zwdm').AsString;
    sqlstr:='update zwdm set zwgz='''+zwgz+''' where(zwdm='''+zwdm+''')';
    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 zwdm order by zwdm');
    Query1.Open;
    if Query1.RecordCount> 0 then
        cmdok.Enabled:=true
    else
        cmdok.Enabled:=false;
    except
    ShowMessage('请输入合法的职务工资！');
    end;
end;

end.