unitchange.pas

DELPHI应用一则

unit UnitCHANGE;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxCntner, dxEditor, dxExEdtr, dxEdLib, ExtCtrls,UnitMAIN;

type
  TF_CHANGE = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button3: TButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EdCOM: TEdit;
    CSX: TComboBox;
    EdRYSJ: TEdit;
    EdLXR: TEdit;
    dxDH: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure EdCOMKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CSXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdRYSJKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdLXRKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdRYSJKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_CHANGE: TF_CHANGE;

implementation
uses UDM;
{$R *.dfm}

procedure TF_CHANGE.Button1Click(Sender: TObject);
begin
  close;

end;

procedure TF_CHANGE.Button3Click(Sender: TObject);
begin
   if DM.ADOxykmx.RecordCount>0 then
     begin
      //先修改档案表里的信息
     try
      DM.ADOCON.BeginTrans;
      DM.ADOxykmx.Edit;
      dm.ADOxykmxbankmc.Value:=EdLXR.Text;
      dm.ADOxykmxcardmc.Value:=CSX.Text;
      dm.ADOxykmxcardno.Value:=EdRYSJ.Text;
      dm.ADOxykmxbz.Value:=dxDH.Text;
      dm.ADOxykmxcardname.Value:=EdCOM.Text;
      DM.ADOxykmx.Post;
      dm.ADOCON.CommitTrans;
      except
      dm.ADOCON.RollbackTrans;
     end;
     end
     else
     MessageBox(Handle,'数据未空，不能修改','系统提示',MB_ICONINFORMATION+MB_OK);
     Exit;

    with FormMAIN do
    begin
       DBGskxx.FullExpand;
    end;
end;

procedure TF_CHANGE.EdCOMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=$0D then
 CSX.SetFocus;

end;

procedure TF_CHANGE.CSXKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=$0D then
EdRYSJ.SetFocus;
end;

procedure TF_CHANGE.EdRYSJKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=$0D then
EdLXR.SetFocus;
end;

procedure TF_CHANGE.EdLXRKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=$0D then
dxDH.SetFocus;
end;

procedure TF_CHANGE.EdRYSJKeyPress(Sender: TObject; var Key: Char);
begin
 if  not (Key in ['0'..'9',#8]) then
 key:=#0;
end;

end.