easygas_mangtype.pas

来自「EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空」· PAS 代码 · 共 62 行

unit EASYGAS_MANGTYPE;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EASY_GASMAIN, DB, ADODB, DBCtrls, StdCtrls, DBCtrlsEh, Mask,
  Buttons, ExtCtrls;

type
  TMANGTYPESET = class(TForm)
    TYPES: TADODataSet;
    DBEditEh1: TDBEditEh;
    DBComboBoxEh1: TDBComboBoxEh;
    TS: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    DBEditEh2: TDBEditEh;
    DBText1: TDBText;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBNavigator1: TDBNavigator;
    DBEditEh3: TDBEditEh;
    procedure DBComboBoxEh1NotInList(Sender: TObject; NewText: String;
      var RecheckInList: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MANGTYPESET: TMANGTYPESET;

implementation

{$R *.dfm}

procedure TMANGTYPESET.DBComboBoxEh1NotInList(Sender: TObject;
  NewText: String; var RecheckInList: Boolean);
begin
  NewText:='托管';
end;

procedure TMANGTYPESET.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Case Key of
  vk_return:Postmessage(TWincontrol(Sender).Handle,WM_KEYDOWN,VK_TAB,0);
  78:if shift=[ssctrl] then TS.DataSet.Append;
  end;

end;

end.