創建一個簡單的Help窗體

最新推荐文章于 2022-07-08 10:57:57 发布

chelen_jak

最新推荐文章于 2022-07-08 10:57:57 发布

阅读量663

点赞数

CC 4.0 BY-SA版权

分类专栏： D2007新框架應用文章标签： integer application null

本文链接：https://blog.youkuaiyun.com/chelen_jak/article/details/5679879

D2007新框架應用专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的车辆计价单选择功能，通过弹出辅助窗口进行车辆信息的选择，并将选中信息回填到主窗口。涉及数据集操作、参数传递及界面交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//bteVechileName->Properties->OnButtonClick事件

procedure TfrmMTOBill.bteVechileNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);

var

   frmHelp: TfrmVehiclePriceHelp;
s1: string;
begin
   if not (BOBroker.Processor.State in [psInsert, psEdit]) then
    Exit;
   //
frmHelp := TfrmVehiclePriceHelp.Create(Application);
   try
    with frmHelp do
     begin
     PlaceName := Self.MasterDataSet.FieldByName('City').AsString; //傳入參數:運抵城市的名稱
       CMB := Self.MasterDataSet.FieldByName('CMB' + s1).AsFloat;     //傳入參數:要運送的體積數
//     SourceProcessor := AProcessor;
//      EditKind := AEditKind;
//       LoadFormData;
//       OpenFormData;
       ShowModal;
       if ModalResult = mrOk then
       begin
        //dsVehicle是在編輯的數據集
         if not (dsVehicle.State in [dsInsert, dsEdit]) then
         dsVehicle.Edit;
         dsVehicle.FieldByName('VehicleID').AsVariant := VehicleID;
         dsVehicle.FieldByName('aVehicleName').AsString := VehicleName;
         dsVehicle.FieldByName('CalFlag').AsInteger := CalFlag;
         dsVehicle.FieldByName('Price').AsFloat := Price;
         dsVehicle.FieldByName('Qty').AsFloat := Qty; //多少車
         dsVehicle.FieldByName('Amount').AsFloat := Amount;
       end;
     end;
   finally
   FreeAndNil(frmHelp);
   end;
end;

//Help窗體的FormShow事件

procedure TfrmVehiclePriceHelp.FormShow(Sender: TObject);
var
   vPlaceID: Variant;
begin
   inherited;
   //設定當前的Connection, 這個很關鍵

CN.Connection := AppManager.Connection.Connection;

   //根據城市名稱找出ID
   vPlaceID := TSqlProc.GetFieldValue('select top 1 ID from pub_Place where PlaceName=''' + PlaceName + '''');
   if vPlaceID = '' then
    vPlaceID := null;
   //
dsHelp.Close;
   dsHelp.Params.ParamByName('pPlaceID').AsString := GuidToStr(vPlaceID);
   dsHelp.Params.ParamByName('pCMB').AsFloat := FCMB;
   dsHelp.Open;
   //
   if gdHelp.CanFocus then
    gdHelp.SetFocus
end;

//按下選中按鈕

procedure TfrmVehiclePriceHelp.aOkExecute(Sender: TObject);
begin
   if dsHelp.IsEmpty then
   begin
    ShowMyMsg('系統提示', '無記錄可以選中！');
     Abort;
   end;
   //
   FVehicleID := dsHelp.FieldByName('VehicleID').AsVariant; //選中車型ID
   FVehicle := dsHelp.FieldByName('VehicleName').AsString; //選中車型名稱
   FCalFlag := dsHelp.FieldByName('CalFlag').AsInteger;       //按車計或按立方計
   FPrice := dsHelp.FieldByName('Price').AsFloat;                   //單價
   FQty := dsHelp.FieldByName('Qty').AsFloat;                       //多少車
   FAmount := dsHelp.FieldByName('Amount').AsFloat;          //運費
   Close;
   Self.ModalResult := mrOk;
end;