upickgoodsform.pas

DELPHI DFM资源文件内码批量转换程序

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

		Edit1:TEdit;
		btnOk:TButton;
		btnCancel:TButton;
		btnSel:TButton;
		btnSelAll:TButton;
		btnNew:TButton;
		SDDBGrid1:TSDDBGrid;
		SDDBGrid2:TSDDBGrid;
		GroupBox1:TGroupBox;
		Label1:TLabel;
		Label3:TLabel;
		Label2:TLabel;
		Label5:TLabel;
		StoreLabel:TLabel;
		Label6:TLabel;
		GoodsCodeED:TEdit;
		GoodsNameED:TEdit;
		GoodsType:TComboBox;
		HistoryGoodsCK:TCheckBox;
		InStoreCKB:TCheckBox;
		SpecsED:TEdit;
		CurTraderCB:TCheckBox;
		GroupBox2:TGroupBox;
		rbAll:TRadioButton;
		rbStock:TRadioButton;
		rbDisc:TRadioButton;
		rbDress:TRadioButton;
		PYFindGoodsEdit:TEdit;
		Button1:TButton;
		TreeView:TSDTreeViewCombo;
		dsGoods:TDataSource;
		qryOnhand:TClientQuery;
		qryOnhandSTOREID:TIntegerField;
		qryOnhandNAME:TStringField;
		qryOnhandQUANTITY:TFloatField;
		qryOnhandREALQTY:TFloatField;
		dsOnhand:TDataSource;
		qryGoods:TClientQuery;
		qryGoodsGOODSID:TIntegerField;
		qryGoodsGOODSCODE:TStringField;
		qryGoodsGOODSNAME:TStringField;
		qryGoodsSPECS:TStringField;
		qryGoodsUNITNAME:TStringField;
		qryGoodsLPRICE1:TFloatField;
		qryGoodsLPRICE2:TFloatField;
		qryGoodsLPRICE3:TFloatField;
		qryGoodsLPRICE4:TFloatField;
		qryGoodsLPRICE5:TFloatField;
		qryGoodsQUANTITY:TFloatField;
		qryGoodsREALQTY:TFloatField;
		qryGoodsKIND:TSmallintField;
		qryGoodsCOSTTYPE:TIntegerField;
		qryGoodsGUSERDEF1:TStringField;
		qryGoodsGUSERDEF2:TStringField;
		qryGoodsGUSERDEF3:TStringField;
		qryGoodsGUSERDEF4:TStringField;
		qryGoodsGUSERDEF5:TStringField;
		dspGoods:TDataSetProvider;
		cdsGoods:TClientDataSet;
		cdsGoodsGOODSID:TIntegerField;
		cdsGoodsGOODSCODE:TStringField;
		cdsGoodsGOODSNAME:TStringField;
		cdsGoodsSPECS:TStringField;
		cdsGoodsUNITNAME:TStringField;
		cdsGoodsLPRICE1:TFloatField;
		cdsGoodsLPRICE2:TFloatField;
		cdsGoodsLPRICE3:TFloatField;
		cdsGoodsLPRICE4:TFloatField;
		cdsGoodsLPRICE5:TFloatField;
		cdsGoodsQUANTITY:TFloatField;
		cdsGoodsREALQTY:TFloatField;
		cdsGoodsKIND:TSmallintField;
		cdsGoodsCOSTTYPE:TIntegerField;
		cdsGoodsGUSERDEF1:TStringField;
		cdsGoodsGUSERDEF2:TStringField;
		cdsGoodsGUSERDEF3:TStringField;
		cdsGoodsGUSERDEF4:TStringField;
		cdsGoodsGUSERDEF5:TStringField;
		procedure btnOkClick(Sender:TObject);
		procedure btnSelClick(Sender:TObject);
		procedure btnSelAllClick(Sender:TObject);
		procedure btnNewClick(Sender:TObject);
		procedure ReadOnly(Sender:TObject);
		procedure True(Sender:TObject);
		procedure SDDBGrid1DblClick(Sender:TObject);
		procedure =(Sender:TObject);
		procedure SDDBGrid2GetFooterParams(Sender:TObject);
		procedure OnFilterChange(Sender:TObject);
		procedure object(Sender:TObject);
		procedure InStoreCKBClick(Sender:TObject);
		procedure rbAllClick(Sender:TObject);
		procedure Button1Click(Sender:TObject);
		procedure TClientQuery(Sender:TObject);
		procedure TIntegerField(Sender:TObject);
		procedure TStringField(Sender:TObject);
		procedure TFloatField(Sender:TObject);
		procedure TDataSource(Sender:TObject);
		procedure False(Sender:TObject);
	public
		{ Public declarations }
	end;


var
PickGoodsForm:TPickGoodsForm;

implementation

{$R *.dfm}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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