setother.pas

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

unit setother;

interface

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

type
  Tsetother_Form = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    gzmc_LEdit: TLabeledEdit;
    gzje_LEdit: TLabeledEdit;
    cmdadd: TButton;
    cmdmodi: TButton;
    cmddel: TButton;
    cmdclose: TButton;
    procedure FormCreate(Sender: TObject);
    procedure mynew;
    procedure cmdaddClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure cmdmodiClick(Sender: TObject);
    procedure cmddelClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    add:boolean;
  end;

var
  setother_Form: Tsetother_Form;

implementation

uses main;

{$R *.dfm}

procedure Tsetother_Form.FormCreate(Sender: TObject);
begin
    mynew;
    add:=false;
end;
procedure Tsetother_Form.mynew;
begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select * from gzdm order by gzdm');
    Query1.Open;
    if Query1.RecordCount > 0 then
    begin
        cmdadd.Enabled:=true;
        cmdmodi.Enabled:=true;
        cmddel.Enabled:=true;
        cmdclose.Enabled:=true;
    end
    else
    begin
        cmdadd.Enabled:=true;
        cmdmodi.Enabled:=false;
        cmddel.Enabled:=false;
        cmdclose.Enabled:=true;
    end;
end;
procedure Tsetother_Form.cmdaddClick(Sender: TObject);
var
    gzmc,gzje,sqlstr:string;
begin
    if add then
    begin
        gzmc:=trim(gzmc_ledit.Text);
        if length(gzmc)<1 then
        begin
            ShowMessage('请输入工资名次');
            exit;
        end;
        gzje:=trim(gzje_ledit.Text);
        if length(gzje)<1 then
        begin
            ShowMessage('请输入工资金额');
            exit;
        end;
        sqlstr:='select * from gzdm where(gzmc='''+gzmc+''')';
        with TQuery.Create(nil) do
        try
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if RecordCount > 0 then
        begin
            ShowMessage('输入的工资名称已经存在，请重新输入！');
            exit;
        end;
        sqlstr:='insert into gzdm(gzmc,gzje)values('''+gzmc+''','''+gzje+''')';
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
        ShowMessage('添加工资名称成功！');
        mynew;
        cmdadd.Caption:='添加';
    end
    else
    begin
        add:=true;
        cmdadd.Caption:='保存';
        gzmc_ledit.Clear;
        gzje_LEdit.Clear;
    end;
end;

procedure Tsetother_Form.DBGrid1CellClick(Column: TColumn);
begin
    try
    gzmc_LEdit.Text:=Query1.fieldbyname('gzmc').AsString;
    gzje_LEdit.Text:=Query1.fieldbyname('gzje').AsString;
    except
    end;
end;

procedure Tsetother_Form.cmdmodiClick(Sender: TObject);
var
    gzdm,gzmc,gzje,sqlstr:string;
begin
    gzdm:=Query1.fieldbyname('gzdm').AsString;
    gzmc:=trim(gzmc_ledit.Text);
    if length(gzmc)<1 then
    begin
        ShowMessage('请输入工资名称');
        exit;
    end;
    gzje:=trim(gzje_ledit.Text);
    if length(gzje)<1 then
    begin
        ShowMessage('请输入工资金额');
        exit;
    end;
    sqlstr:='select * from gzdm where(gzmc='''+gzmc+''')and(gzdm<>'''+gzdm+''')';
    with TQuery.Create(nil) do
    try
    Close;
    SQL.Clear;
    SQL.Add(sqlstr);
    Open;
    if RecordCount > 0 then
    begin
        ShowMessage('输入的工资名称已经存在，请重新输入！');
        exit;
    end;
    sqlstr:='update gzdm set gzmc='''+gzmc+''',gzje='''+gzje;
    sqlstr:=sqlstr+''' where(gzdm='''+gzdm+''')';
    Close;
    SQL.Clear;
    SQL.Add(sqlstr);
    ExecSQL;
    finally
    Free;
    end;
    ShowMessage('修改工资名称成功！');
    mynew;
end;

procedure Tsetother_Form.cmddelClick(Sender: TObject);
var
    gzdm:string;
begin
    if MessageDlg('确认要删除选中的工资名称信息吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        gzdm:=Query1.fieldbyname('gzdm').AsString;
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add('delete from gzdm where gzdm='''+gzdm+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
        ShowMessage('成功删除工资名称信息');
        mynew;
    end;
end;

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

end.