fxgkc.pas.~8~

来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· ~8~ 代码 · 共 67 行

unit Fxgkc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxPC, cxControls, Menus, cxLookAndFeelPainters, cxLabel, cxContainer,
  cxEdit, cxTextEdit, cxDBEdit, StdCtrls, cxButtons;

type
  TFrmXGKC = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit8: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    cxLabel8: TcxLabel;
    cxLabel10: TcxLabel;
    cxTextEdit1: TcxTextEdit;
    cxButton3: TcxButton;
    procedure cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmXGKC: TFrmXGKC;

implementation

uses UDM;

{$R *.dfm}

procedure TFrmXGKC.cxButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmXGKC.cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((key<'0') or (key>'9'))and (key<>#8) then key:=#0;
end;

procedure TFrmXGKC.FormShow(Sender: TObject);
begin
  cxTextEdit1.Text:=dm.qry3.FieldByName('kcsl').AsString;
end;

end.