scpgd.pas

服务信息管理系统

unit scpgd;

interface

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

type
  Tfrmscpgd = class(TForm)
    SaveButton: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    KhbhEdit: TEdit;
    KhmcEdit: TEdit;
    lxrEdit: TEdit;
    lxdhEdit: TEdit;
    dzEdit: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    jqxhEdit: TEdit;
    fwlxEdit: TEdit;
    Button1: TButton;
    fwryEdit: TEdit;
    Button2: TButton;
    yysjMaskEdit: TMaskEdit;
    ryapEdit: TEdit;
    Button3: TButton;
    fwqqMemo: TMemo;
    gjrqMaskEdit: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    KhQuery: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure KhmcEditChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmscpgd: Tfrmscpgd;

implementation

{$R *.dfm}

procedure Tfrmscpgd.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

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

procedure Tfrmscpgd.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      SelectNext(ActiveControl, True, True);
      Key := #0;
    end;
end;

procedure Tfrmscpgd.KhmcEditChange(Sender: TObject);
begin
  SaveButton.Enabled := True;
end;

procedure Tfrmscpgd.FormShow(Sender: TObject);
begin
  SaveButton.Enabled := False;
end;

procedure Tfrmscpgd.SaveButtonClick(Sender: TObject);
begin
  with KhQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Update khxxk');
      SQL.Add('Set');
      SQL.Add('Kh_mc=:lsbl_khmc,kh_lxr=:lsbl_lxr,kh_dh=:lsbl_dh,kh_dz=:lsbl_dz');
      SQl.Add('Where kh_bh=:lsbl_khbh');
      ParamByName('lsbl_khbh').AsString := khbhEdit.text;
      ParamByName('lsbl_khmc').AsString := khmcEdit.Text;
      ParamByName('lsbl_lxr').AsString := lxrEdit.Text;
      ParamByName('lsbl_dh').AsString := lxdhEdit.Text;
      ParamByName('lsbl_dz').AsString := dzEdit.Text;
      ExecSQL;
      Close;
    end;
  SaveButton.Enabled := False;
end;

end.