xtcssz.pas

服务信息管理系统

unit xtcssz;

interface

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

type
  Tfrmxtcssz = class(TForm)
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ImageList: TImageList;
    ToolBar1: TToolBar;
    SaveToolButton: TToolButton;
    ToolButton2: TToolButton;
    CheckBox1: TCheckBox;
    xtcsTable: TTable;
    procedure ToolButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SaveToolButtonClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxtcssz: Tfrmxtcssz;

implementation

{$R *.dfm}

procedure Tfrmxtcssz.ToolButton2Click(Sender: TObject);
begin
  Close;
end;

procedure Tfrmxtcssz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmxtcssz := nil;
end;

procedure Tfrmxtcssz.FormShow(Sender: TObject);
begin
  Self.Height := 391;
  Self.Width := 542;
  xtcstable.Open;
  xtcstable.First;
  if Trim(xtcstable.FieldByName('xtcs_sz').AsString) = '1' then
    CheckBox1.Checked := True;
  SaveToolButton.Enabled := False;
end;

procedure Tfrmxtcssz.SaveToolButtonClick(Sender: TObject);
begin
  with xtcstable do
    begin
      First;
      Edit;
      if CheckBox1.Checked = True then
        begin
          FieldByName('xtcs_sz').AsString := '1';
        end
      else
        begin
          FieldByName('xtcs_sz').AsString := '0';
        end;
      Post;
      SaveToolButton.Enabled := False;
    end;
end;

procedure Tfrmxtcssz.CheckBox1Click(Sender: TObject);
begin
  SaveToolButton.Enabled := True;
end;

procedure Tfrmxtcssz.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if SaveToolButton.Enabled then
    if MessageDlg('数据已修改，是否保存修改？', mtConfirmation, mbYesNoCancel, 0) = mrYes then
      SaveToolButton.Click;
end;

end.