ckxx.pas

本系统前端界面采用WINDOWS 窗口风格

unit ckxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, Mask, DBCtrls, Db, DBTables, ComCtrls,
  ToolWin;

type
  Tfrmckxx = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Edit_bh: TEdit;
    Edit_mc: TEdit;
    Edit_sl: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Edit_bm: TEdit;
    Query_ckxx: TQuery;
    DataSource_ckxx: TDataSource;
    Database: TDatabase;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  frmckxx: Tfrmckxx;


implementation

uses  main;


{$R *.DFM}

procedure Tfrmckxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tfrmckxx.FormCreate(Sender: TObject);
begin
  if Frmmain.right='01' then bitbtn2.Enabled:=false;
  Query_ckxx.close;
  Query_ckxx.UnPrepare;
  Query_ckxx.sql.Clear;
  Query_ckxx.sql.Add('select * from ckxxb');
  Query_ckxx.Prepare;
  Query_ckxx.open;
end;

procedure Tfrmckxx.BitBtn2Click(Sender: TObject);
begin
if bitbtn2.Caption='更改属性' then
  begin
    Edit_bh.Clear;
    Edit_mc.Clear;
    Edit_bm.Clear;
    Edit_sl.Clear;
    bitbtn2.Caption:='确认更改';
  end
else
  begin
    Query_ckxx.Edit;
    if Edit_sl.Text='' then Edit_sl.Text:='0';
    Query_ckxx.FieldByName('sl').asstring:=Edit_sl.Text;
    Try
      Database.StartTransaction;
      Query_ckxx.Post;
      Database.Commit;
      bitbtn2.Caption:='更改属性';
    Except
      Database.Rollback;
      Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
      exit;
    end
  end;
end;

procedure Tfrmckxx.BitBtn1Click(Sender: TObject);
begin
  Self.Close;
end;

procedure Tfrmckxx.DBGrid1CellClick(Column: TColumn);
begin
if bitbtn2.Caption='确认更改' then
  begin
    Edit_bh.Text:=Query_ckxx.fieldbyname('ck_bh').asstring;
    Edit_mc.Text:=Query_ckxx.fieldbyname('ck_mc').asstring;
    Edit_bm.Text:=Query_ckxx.fieldbyname('bm').asstring;
    Edit_sl.Text:=Query_ckxx.fieldbyname('sl').asstring;
  end;
end;

end.