【文章內(nèi)容簡介】 rmationCDSDesigner8Text。 } void __fastcall TFormModifyCarsDiaoDuInformation::Button1Click( TObject *Sender) { if(edt1Text==||edt2Text==||edt3Text==||edt4Text== ||edt5Text==||edt6Text==) { ShowMessage(修改信息不完整，請?zhí)砑油暾?!)。 return。 } dsModfiyCarsDiaoDuInformation1ParamsParamByName(order_id )AsInteger=StrToInt(edt2Text)。 dsModfiyCarsDiaoDuInformation1ParamsParamByName(car_number )AsString=edt3Text。 dsModfiyCarsDiaoDuInformation1ParamsParamByName(driver_name )AsString=edt4Text。 dsModfiyCarsDiaoDuInformation1ParamsParamByName(renwu )AsString=edt5Text。 dsModfiyCarsDiaoDuInformation1ParamsParamByName(renwu_date )AsDateTime=dtp1DateTime。 12 dsModfiyCarsDiaoDuInformation1ParamsParamByName(goods_name )AsString=edt6Text。 dsModfiyCarsDiaoDuInformation1ParamsParamByName(goods_address )AsString=edt1Text。 dsModfiyCarsDiaoDuInformation1ParamsParamByName(diaodu_ment )AsString=mmo1Text。 if(dsModfiyCarsDiaoDuInformation1Active==true) { dsModfiyCarsDiaoDuInformation1Close()。 } dsModfiyCarsDiaoDuInformation1Execute()。 ShowMessage(已經(jīng)修改成功 !)。 } 托運(yùn)申請單管理 在正式托運(yùn)貨物之前，需要進(jìn)行托運(yùn)貨物申請，在進(jìn)行托運(yùn)貨物申請時需要填寫托運(yùn)貨物申請單，托運(yùn)申請單經(jīng)過核對之后，才可以填寫貨物托運(yùn)單進(jìn)行托運(yùn)貨物。在托運(yùn)申請單中記錄的托運(yùn)貨物的詳細(xì)信息，以便托運(yùn)貨物時進(jìn)行核對。 貨物托運(yùn)申請管理模塊的運(yùn)行結(jié)果如圖 所示。 圖 貨物托運(yùn)申請管理模塊運(yùn)行結(jié)果 13 填寫完托運(yùn)申請單，存入數(shù)據(jù)庫后，如果需要改動一些信息，可以通過下面窗口進(jìn)進(jìn)操作，下面是托運(yùn)申請單修改界面。 圖 貨物托運(yùn)申請修改模塊運(yùn)行結(jié)果 下面是托運(yùn)申請單刪除界面 圖 貨物托運(yùn)申請刪除模塊運(yùn)行結(jié)果 貨物托運(yùn)管理 貨物托運(yùn)管理是本系統(tǒng)的核心，在公司職員填寫托運(yùn)申請后，可以在托運(yùn)管理界面通過右 14 邊的托運(yùn)申請列表里面選擇要批準(zhǔn)的托運(yùn)申請單，然后添加完正式的托運(yùn)單后可以選擇添加按鈕，保持入庫。左邊的托運(yùn)單號列出的是未驗收的托運(yùn)單，當(dāng)有鼠標(biāo)左鍵單擊時右面會顯示出該托運(yùn)單的所有信息，單擊刪除按鈕，可以刪除選擇的托運(yùn)單。右邊的所有信息都可以編輯，當(dāng)單擊一個托運(yùn)單時，如果需要 修改其中一項，可以直接在右邊編輯，然后點(diǎn)修改按鈕就可以了。當(dāng)下完托運(yùn)單后，單擊增加貨物按鈕，會彈出一個貨物添加窗口，可以在里面添加該托運(yùn)單承運(yùn)的貨物。當(dāng)托運(yùn)單下單后，貨物開始出運(yùn)，當(dāng)貨物按期到達(dá)后，管理員可以按照托運(yùn)單號驗收該托運(yùn)單，到此，就完成了一個完整的托運(yùn)流程。 貨物托運(yùn)管理模塊的運(yùn)行結(jié)果如圖 8 所示 圖 貨物托運(yùn)管理模塊的運(yùn)行結(jié)果 單擊【添加貨物】按鈕，將彈出增加托運(yùn)貨物窗體，如圖 所示。 15 圖 增加托運(yùn)貨物窗體 單擊驗收托運(yùn)單時，會彈出托運(yùn)單驗收窗口，如下 貨物托運(yùn)管理窗體的代碼設(shè)計 添加托運(yùn)單核心代碼 void __fastcall TfrmGoodsTuoYun::Panel1Click(TObject *Sender) { if(IsAllTianJia()==false) { ShowMessage(信息不完整，不能下單 )。 return。 } 16 else { cdsInsertTuoYunInformationParamsParamByName(apply_id)AsInteger=StrToInt(Edit4Text)。 cdsInsertTuoYunInformationParamsParamByName(pany_name)AsString=edt6Text。 cdsInsertTuoYunInformationParamsParamByName(customer_telephone)AsString=edt5Text。 cdsInsertTuoYunInformationParamsParamByName(customer_name)AsString=edt3Text。 cdsInsertTuoYunInformationParamsParamByName(tuiyun_pany_name)AsString=Edit5Text。 cdsInsertTuoYunInformationParamsParamByName(tuiyun_pany_telephone)AsInteger=StrToInt(edt2Text)。 cdsInsertTuoYunInformationParamsParamByName(tuiyun_pany_employee_name)AsString=edt4Text。 cdsInsertTuoYunInformationParamsParamByName(goal_customer_name)AsString=edt6Text。 cdsInsertTuoYunInformationParamsParamByName(goal_customer_employee_name)AsString=edt8Text。 cdsInsertTuoYunInformationParamsParamByName(goal_customer_telephone)AsString=edt7Text。 cdsInsertTuoYunInformationParamsParamByName(goal_customer_address)AsString=edt9Text。 cdsInsertTuoYunInformationParamsParamByName(driver_name)AsString=edt11Text。 cdsInsertTuoYunInformationParamsParamByName(car_id)AsString=edt13Text。 cdsInsertTuoYunInformationParamsParamByName(driver_telephone)AsString=edt14Text。 cdsInsertTuoYunInformationParamsParamByName(paoxian_costs_count)AsString=edt15Text。 cdsInsertTuoYunInformationParamsParamByName(total_costs)AsString=edt16Text。 cdsInsertTuoYunInformationParamsParamByName(yifu_toal_costs)AsString=edt17Text。 17 cdsInsertTuoYunInformationParamsPara