utpickstoreform.pas

来自「DELPHI DFM资源文件内码批量转换程序」· PAS 代码 · 共 52 行

unit uTPICKSTOREFORM;
interface
uses
	Windows,Messages,SysUtils,StrUtils,Classes,Graphics,Controls,Forms;
Type
	TPickStoreForm=class(TForm)

		Label2:TLabel;
		DBGrid1:TDBGrid;
		btnOk:TButton;
		btnCancel:TButton;
		Edit1:TEdit;
		Edit2:TEdit;
		qryStore:TClientQuery;
		qryStoreSTOREID:TIntegerField;
		qryStoreCODE:TStringField;
		qryStoreNAME:TStringField;
		qryStoreLOCATION:TStringField;
		qryStoreREMARK:TStringField;
		qryStoreUPFLAG:TIntegerField;
		dsStore:TDataSource;
		procedure TabOrder(Sender:TObject);
		procedure btnOkClick(Sender:TObject);
		procedure Edit2Change(Sender:TObject);
	public
		{ Public declarations }
	end;


var
PickStoreForm:TPickStoreForm;

implementation

{$R *.dfm}

procedure PickStoreForm.TabOrder(Sender:TObject);
begin
  // TODO -cMM: default body
end;

procedure PickStoreForm.btnOkClick(Sender:TObject);
begin
  // TODO -cMM: default body
end;

procedure PickStoreForm.Edit2Change(Sender:TObject);
begin
  // TODO -cMM: default body
end;