ucmexpenseappform.pas

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

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

		btnPrev:TSDExplBtn;
		btnNext:TSDExplBtn;
		btnOperate:TSDExplBtn;
		btnPrint:TSDExplBtn;
		RptStyleCB:TSDDBLkupGridCombo;
		BtnCourse:TSDExplBtn;
		ArchBtn:TSDExplBtn;
		palButton:TPanel;
		SaveAddBtn:TButton;
		OkBtn:TButton;
		CancelBtn:TButton;
		CheckBtn:TButton;
		palBottom:TPanel;
		Label6:TLabel;
		edRemark:TJxlDBEdit;
		palTitle:TSDFPanel;
		NoLabel:TLabel;
		lblTitle:TLabel;
		spAbate:TShape;
		lbAbate:TLabel;
		lbBeta:TLabel;
		lbl1:TLabel;
		DateDBEdit:TDBEdit;
		NoDBEdit:TDBEdit;
		ItemGrid1:TDBGrid;
		ItemGrid2:TDBGrid;
		cmbAppType:TSDDBLkupGridCombo;
		pnlExpense:TPanel;
		pnlFinished:TPanel;
		dsMaster:TDataSource;
		qryMaster:TClientQuery;
		qryMasterBILLID:TIntegerField;
		qryMasterBILLKIND:TSmallintField;
		qryMasterBILLSTATE:TSmallintField;
		qryMasterBILLCODE:TStringField;
		qryMasterBILLDATE:TDateTimeField;
		qryMasterAppType:TIntegerField;
		qryMasterEMPID:TIntegerField;
		qryMasterSHOPID:TIntegerField;
		qryMasterDEPARTMENTID:TIntegerField;
		qryMasterOPID:TIntegerField;
		qryMasterCHECKORID:TIntegerField;
		qryMasterCREDID:TIntegerField;
		qryMasterPRINTTMPLTID:TIntegerField;
		qryMasterREFERCOUNT:TIntegerField;
		qryMasterUPDATETIME:TDateTimeField;
		qryMasterREMARK:TStringField;
		qryMasterSFLAG:TIntegerField;
		qryMasterOPNAME:TStringField;
		qryMasterCHECKOR:TStringField;
		qryMasterAMOUNT:TFloatField;
		qryMasterUSERDEF1:TStringField;
		qryMasterUSERDEF2:TStringField;
		qryMasterUSERDEF3:TStringField;
		qryMasterUSERDEF4:TStringField;
		qryMasterUSERDEF5:TStringField;
		qryMasterCREDCODE:TStringField;
		BillMenu:TPopupMenu;
		muSelectBill:TMenuItem;
		muSelectBill2:TMenuItem;
		muColumnSetting:TMenuItem;
		muColumnSettingExp:TMenuItem;
		N1:TMenuItem;
		muAuto:TMenuItem;
		PrintMenu:TPopupMenu;
		cdsPrint:TClientDataSet;
		dsPrint:TDataSource;
		CourseMenu:TPopupMenu;
		ActionList:TActionList;
		ArchPMenu:TPopupMenu;
		adpMaster:TSQLAdapter;
		batMaster:TBatchSQL;
		dsBillKind:TDataSource;
		dsDetail1:TDataSource;
		qryDetail1:TClientQuery;
		qryDetail1BILLID:TIntegerField;
		qryDetail1ITEMNO:TIntegerField;
		qryDetail1REFERCOUNT:TIntegerField;
		qryDetail1REFERBILLTYPE:TIntegerField;
		qryDetail1REFERBILLID:TIntegerField;
		qryDetail1AMOUNT:TFloatField;
		qryDetail1USERDEF1:TStringField;
		qryDetail1USERDEF2:TStringField;
		qryDetail1USERDEF3:TStringField;
		qryDetail1REMARK:TStringField;
		qryDetail1BNAME:TStringField;
		qryDetail1BDATE:TDateTimeField;
		qryDetail1BCode:TStringField;
		qryDetail1MATERIAL:TFloatField;
		qryDetail1GOODSCODE:TStringField;
		qryDetail1GOODSNAME:TStringField;
		qryDetail1SPECS:TStringField;
		qryDetail1UNITNAME:TStringField;
		qryDetail1QUANTITY:TFloatField;
		qryDetail1BATCHCODE:TStringField;
		dsDetail2:TDataSource;
		qryDetail2:TClientQuery;
		qryDetail2BILLID:TIntegerField;
		qryDetail2ITEMNO:TIntegerField;
		qryDetail2REFERCOUNT:TIntegerField;
		qryDetail2REFERBILLTYPE:TIntegerField;
		qryDetail2REFERBILLID:TIntegerField;
		qryDetail2AMOUNT:TFloatField;
		qryDetail2USERDEF1:TStringField;
		qryDetail2USERDEF2:TStringField;
		qryDetail2USERDEF3:TStringField;
		qryDetail2REMARK:TStringField;
		qryDetail2BNAME:TStringField;
		qryDetail2BCODE:TStringField;
		qryDetail2BDATE:TDateTimeField;
		qryDetail2ExpAmt:TFloatField;
		qryDetail2appamt:TFloatField;
		qryDetail2appamount:TFloatField;
		qryDetail2shouldamt:TFloatField;
		qryDetail2oldamount:TFloatField;
		DetailMenu1:TPopupMenu;
		muAppendDetail1:TMenuItem;
		muDeleteDetail1:TMenuItem;
		DetailMenu2:TPopupMenu;
		muAppendDetail2:TMenuItem;
		muDeleteDetail2:TMenuItem;
		csPrintDetail:TClientDataSet;
		csPrintDetailBCODE:TStringField;
		csPrintDetailBNAME:TStringField;
		csPrintDetailBDATE:TDateTimeField;
		csPrintDetailBAMOUNT:TFloatField;
		csPrintDetailBKIND:TSmallintField;
		csPrintDetailreferamt:TFloatField;
		csPrintDetailshouldamt:TFloatField;
		csPrintDetailAMOUNT:TFloatField;
		csPrintDetailUSERDEF1:TStringField;
		csPrintDetailUSERDEF2:TStringField;
		csPrintDetailUSERDEF3:TStringField;
		csPrintDetailREMARK:TStringField;
		csPrintDetailgoodsname:TStringField;
		csPrintDetailMaterial:TFloatField;
		dsPrintDetail:TDataSource;
		cdsBillKind:TClientDataSet;
		PopupMenu1:TPopupMenu;
		MenuItem1:TMenuItem;
		MenuItem2:TMenuItem;
		MenuItem3:TMenuItem;
		MenuItem4:TMenuItem;
		MenuItem5:TMenuItem;
		dsAppType:TDataSource;
		cdsAppType:TClientDataSet;
		cdsAppTypeAppTypeID:TIntegerField;
		cdsAppTypeAppTypeName:TStringField;
		AdpDetail1:TSQLAdapter;
		AdpDetail2:TSQLAdapter;
		procedure ParentCtl3D(Sender:TObject);
		procedure ItemGrid1DblClick(Sender:TObject);
		procedure ItemGrid1GetFooterParams(Sender:TObject);
		procedure ItemGrid2DblClick(Sender:TObject);
		procedure muSelectBill2Click(Sender:TObject);
		procedure muColumnSettingClick(Sender:TObject);
		procedure muColumnSettingExpClick(Sender:TObject);
		procedure muAutoClick(Sender:TObject);
		procedure muAppendDetail1Click(Sender:TObject);
		procedure muDeleteDetail1Click(Sender:TObject);
		procedure muAppendDetail2Click(Sender:TObject);
		procedure muDeleteDetail2Click(Sender:TObject);
		procedure muReferFileClick(Sender:TObject);
		procedure muLaunchFileClick(Sender:TObject);
		procedure muLookReferFileClick(Sender:TObject);
		procedure muLookLaunchFileClick(Sender:TObject);
	public
		{ Public declarations }
	end;


var
CmExpenseAppForm:TCmExpenseAppForm;

implementation

{$R *.dfm}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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