无奈了,这是窗体全部的代码,实在不知道哪里错了:
unit ZCGZSQCT;
interface
uses
Business.System, Business.Forms, Business.Model, Business.Data,
Business.Model.Flow;
type
TZCGZSQCT = class(TForm)
DocViewBar: TDocViewBar;
DataNavigator: TDataNavigator;
InfoBroker1: TInfoBroker;
dsbImportMain: TDataSetBroker;
Label1: TLabel;
DataEdit1: TDataEdit;
Label2: TLabel;
DataEdit2: TDataEdit;
Label3: TLabel;
DataEdit3: TDataEdit;
Label4: TLabel;
DataEdit4: TDataEdit;
DataEdit5: TDataEdit;
Label5: TLabel;
DataGrid1: TDataGrid;
dsbImportSub: TDataSetBroker;
DataGrid1DeviceTypeID: TDataGridColumn;
DataGrid1DeviceDescription: TDataGridColumn;
DataGrid1AgentName: TDataGridColumn;
DataGrid1UNITPrice: TDataGridColumn;
DataGrid1Quantity: TDataGridColumn;
DataGrid1JE: TDataGridColumn;
DocView1: TDocView;
Label6: TLabel;
Label8: TLabel;
Label9: TLabel;
DataEdit6: TDataEdit;
Label7: TLabel;
DataEdit7: TDataEdit;
DataEdit8: TDataEdit;
dsbAudit1: TDataSetBroker;
DataEdit9: TDataEdit;
Label10: TLabel;
DataEdit10: TDataEdit;
Label11: TLabel;
DataEdit11: TDataEdit;
Label12: TLabel;
DataEdit12: TDataEdit;
Label13: TLabel;
DataEdit13: TDataEdit;
Label14: TLabel;
Label15: TLabel;
DataEdit14: TDataEdit;
DataEdit15: TDataEdit;
Label16: TLabel;
DataEdit16: TDataEdit;
DataEdit17: TDataEdit;
Label17: TLabel;
dsbAudit2: TDataSetBroker;
dsbAudit3: TDataSetBroker;
panel_toolbar: TPanel;
Panel_whole_bottom: TPanel;
panel_main_dataset: TPanel;
panel_sub_dataset: TPanel;
panel_audit_dataset: TPanel;
panel_audit1: TPanel;
panel_audit3: TPanel;
panel_audit2: TPanel;
FlowBroker1: TFlowBroker;
Button1: TButton;
procedure BizFormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{private declarations}
public
{public declarations}
end;
implementation
procedure TZCGZSQCT.BizFormCreate(Sender: TObject);
begin
//
panel_main_dataset.Height := Panel_whole_bottom.Height div 4;
panel_sub_dataset.Height := Panel_whole_bottom.Height div 4;
panel_audit_dataset.Height := Panel_whole_bottom.Height div 2;
panel_audit1.Height := panel_audit_dataset.Height div 3;
panel_audit2.Height := panel_audit_dataset.Height div 3;
panel_audit3.Height := panel_audit_dataset.Height div 3;
end;
procedure TZCGZSQCT.Button1Click(Sender: TObject);
var
FID: String;
begin
FID := GetIDStr;
if FID <> '' then
with InfoQueryRule.TInfoQueryRule.Create(Context) do
begin
try
GetFlowForm(FID, SysUtils.UpperCase('Biz:\OPERATION\FLOWITEMENTRUST.PROC'));
finally
Free;
end;
end
else
JsDialogs.ShowMsg('请选择一条正确的数据查看!','提示');
end;
end. |