📄 frm_bussinessbilledit.~pas
字号:
unit Frm_BussinessBillEdit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Frm_Cargo, XPMenu, CoolCtrls, ComCtrls, StdCtrls;
type
TFrmBussinessBillEdit = class(TFrmCargo)
Label11: TLabel;
Label30: TLabel;
Label12: TLabel;
Label5: TLabel;
Label8: TLabel;
Label33: TLabel;
Label4: TLabel;
Label3: TLabel;
Label18: TLabel;
Label23: TLabel;
Label10: TLabel;
Label9: TLabel;
Label17: TLabel;
Label1: TLabel;
Label6: TLabel;
Label7: TLabel;
Label13: TLabel;
Label14: TLabel;
Label21: TLabel;
Label22: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label2: TLabel;
Label15: TLabel;
Label19: TLabel;
Label20: TLabel;
Label16: TLabel;
EdtOperator: TEdit;
EdtRemark: TEdit;
CmbUnloadPort: TComboBox;
EdtGoodsName: TEdit;
EdtTotalWeight: TEdit;
EdtTotalNumber: TEdit;
CmbBussinessMan: TComboBox;
CmbAgent: TComboBox;
CmbTrustType: TComboBox;
CmbPlaneComCode: TComboBox;
MemTruckRequest: TMemo;
MemFileRequest: TMemo;
CmbLoadPort: TComboBox;
DtpGoDate: TDateTimePicker;
EdtCargoVolume: TEdit;
EdtTotalSize: TEdit;
MemFareRequest: TMemo;
DtpQuoteDate: TDateTimePicker;
EdtCustQuoteCode: TEdit;
EdtConsignCodeTele: TEdit;
EdtConsignCodeRela: TEdit;
EdtConsignCodeAddr: TEdit;
EdtFreight: TEdit;
EdtBtnCusCode: TCoolEditBtn;
EdtCusCodeTele: TEdit;
EdtCusCodeRela: TEdit;
EdtCusCodeAddr: TEdit;
EdtBtnConsignCode: TCoolEditBtn;
EdtOperatorName: TEdit;
RadOut: TCoolCheckRadioBox;
RadIn: TCoolCheckRadioBox;
BtnAdd: TButton;
BtnSave: TButton;
BtnClose: TButton;
procedure BtnAddClick(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
private
{ Private declarations }
public
IsEdit: Boolean;
QuoteCode: string;
{ Public declarations }
end;
var
FrmBussinessBillEdit: TFrmBussinessBillEdit;
implementation
uses Frm_Main, Frm_BussinessBillInfo;
{$R *.dfm}
procedure TFrmBussinessBillEdit.BtnAddClick(Sender: TObject);
begin
inherited;
EdtCustQuoteCode.Text := '';
EdtCustQuoteCode.SetFocus;
EdtBtnCusCode.Text := '';
EdtCusCodeTele.Text := '';
CmbTrustType.Text := '';
EdtCusCodeRela.Text := '';
EdtCusCodeAddr.Text := '';
EdtBtnConsignCode.Text := '';
EdtConsignCodeTele.Text := '';
EdtConsignCodeRela.Text := '';
EdtConsignCodeAddr.Text := '';
CmbAgent.Text := '';
CmbPlaneComCode.Text := '';
EdtFreight.Text := '';
CmbLoadPort.Text := '';
CmbUnloadPort.Text := '';
DtpGoDate.DateTime := Now;
EdtGoodsName.Text := '';
EdtCargoVolume.Text := '';
EdtTotalNumber.Text := '';
EdtTotalWeight.Text := '';
EdtTotalSize.Text := '';
MemTruckRequest.Text := '';
MemFileRequest.Text := '';
MemFareRequest.Text := '';
DtpQuoteDate.DateTime := Now;
CmbBussinessMan.Text := '';
EdtRemark.Text := '';
QuoteCode := '';
BtnAdd.Enabled := False;
IsEdit := False;
end;
procedure TFrmBussinessBillEdit.BtnSaveClick(Sender: TObject);
var
Sqlstr: string;
TempRowCount: Integer;
begin
inherited;
if FrmMain.IncludeValue('交接单维护') then
else
begin
ShowMessage('对不起，你不具有该操作的权限！');
exit;
end;
if IsEdit then
begin
try
sqlstr := '';
FrmMain.UpStr(sqlstr, 'BussessBillQuote');
FrmMain.UpStr(sqlstr, 'CustQuoteCode', Trim(EdtCustQuoteCode.text), ',');
FrmMain.UpStr(sqlstr, 'CusCode', trim(EdtBtnCusCode.Text), ',');
FrmMain.UpStr(sqlstr, 'CusCodeTele', Trim(EdtCusCodeTele.Text), ',');
FrmMain.UpStr(sqlStr, 'CusCodeAddr', Trim(EdtCusCodeAddr.Text), ',');
FrmMain.UpStr(sqlStr, 'CusCodeRela', Trim(EdtCusCodeRela.Text), ',');
FrmMain.UpStr(sqlStr, 'ConsignCode', Trim(EdtBtnConsignCode.Text), ',');
FrmMain.UpStr(sqlStr, 'ConsignCodeTele', Trim(EdtConsignCodeTele.Text), ',');
FrmMain.UpStr(sqlStr, 'ConsignCodeAddr', Trim(EdtConsignCodeAddr.Text), ',');
FrmMain.UpStr(sqlStr, 'ConsignCodeRela', Trim(EdtConsignCodeRela.Text), ',');
FrmMain.UpStr(sqlStr, 'TrustType', Trim(FrmMain.GetFieldText(CmbTrustType.Text)), ',');
FrmMain.UpStr(sqlStr, 'Agent', Trim(FrmMain.GetFieldText(CmbAgent.Text, 2)), ',');
FrmMain.UpStr(sqlStr, 'PlaneComCode', Trim(FrmMain.GetFieldText(CmbPlaneComCOde.Text)), ',');
FrmMain.UpStr(sqlStr, 'LoadPort', Trim(FrmMain.GetFieldText(CmbLoadPort.Text)), ',');
FrmMain.UpStr(sqlStr, 'UnLoadPort', Trim(FrmMain.GetFieldText(CmbUnLoadPort.Text)), ',');
FrmMain.UpStr(sqlStr, 'Freight', Trim(EdtFreight.Text), ',');
FrmMain.UpStr(sqlStr, 'GoDate', Trim(DateTOStr(int(DtpGoDate.Date))), ',');
FrmMain.UpStr(sqlStr, 'CargoVolume', Trim(EdtCargoVolume.Text), ',');
FrmMain.UpStr(sqlStr, 'GoodsName', Trim(EdtGoodsName.Text), ',');
FrmMain.UpStr(sqlStr, 'TotalWeight', Trim(EdtTotalWeight.Text), ',');
FrmMain.UpStr(sqlStr, 'TotalNumber', Trim(EdtTotalNumber.Text), ',');
FrmMain.UpStr(sqlStr, 'TotalSize', Trim(EdtTotalSize.Text), ',');
FrmMain.UpStr(sqlStr, 'Operator', Trim(EdtOperator.Text), ',');
FrmMain.UpStr(sqlStr, 'OperatorName', Trim(EdtOperatorName.Text), ',');
FrmMain.UpStr(sqlStr, 'BussinessMan', Trim(FrmMain.GetFieldText(CmbBussinessMan.Text)), ',');
FrmMain.UpStr(sqlStr, 'QuoteDate', Trim(DateTOStr(int(DtpQuoteDate.Date))), ',');
FrmMain.UpStr(sqlStr, 'TruckRequest', Trim(MemTruckRequest.Lines.Text), ',');
FrmMain.UpStr(sqlStr, 'FareRequest', Trim(MemFareRequest.Lines.Text), ',');
FrmMain.UpStr(sqlStr, 'FileRequest', Trim(MemFileRequest.Lines.Text), ',');
if RadOut.Checked then
FrmMain.UpStr(sqlstr, 'outin', 0, ',')
else
FrmMain.UpStr(sqlstr, 'outin', 1, ',');
FrmMain.UpStr(SqlStr, 'Remark', Trim(EdtRemark.Text), '');
FrmMain.UpStr(sqlstr, 'quotecode =', QuoteCode, 'w');
if FrmMain.ExecSQL(SqlStr) then
else
begin
ShowMessage('更新代码记录失败,请检查!');
exit;
end;
with FrmBussinessBillInfo do
begin
GridBillQuote.Cells[0, CurrentRow] := EdtCustQuoteCode.Text;
GridBillQuote.Cells[1, CurrentRow] := EdtBtnCusCode.Text;
GridBillQuote.Cells[2, CurrentRow] := EdtBtnConsignCode.Text;
GridBillQuote.Cells[3, CurrentRow] := FrmMain.GetFieldText(CmbAgent.Text, 2);
GridBillQuote.Cells[4, CurrentRow] := FrmMain.GetFieldText(CmbTrustType.Text, 2);
GridBillQuote.Cells[5, CurrentRow] := FrmMain.GetFieldText(CmbPlaneComCode.Text, 2);
GridBillQuote.Cells[6, CurrentRow] := EdtFreight.Text;
GridBillQuote.Cells[7, CurrentRow] := FrmMain.GetFieldText(CmbLoadPort.Text, 2);
GridBillQuote.Cells[8, CurrentRow] := FrmMain.GetFieldText(CmbUnLoadPort.Text, 2);
GridBillQuote.Cells[9, CurrentRow] := DateTOStr(DtpGoDate.Date);
GridBillQuote.Cells[10, CurrentRow] := EdtGoodsName.Text;
GridBillQuote.Cells[11, CurrentRow] := EdtTotalNumber.Text;
GridBillQuote.Cells[12, CurrentRow] := EdtTotalWeight.Text;
GridBillQuote.Cells[13, CurrentRow] := EdtTotalSize.Text;
end;
except
ShowMessage('更新代码记录失败,请检查!');
exit;
end;
end
else
begin
try
QuoteCode := FrmMain.GetCode('BQ');
SqlStr := 'Insert into BussessBillQuote(quotecode,CustQuoteCode,CusCode,'
+ 'CusCodeTele,CusCodeAddr,CusCodeRela,ConsignCode,ConsignCodeTele,'
+ 'ConsignCodeAddr,ConsignCodeRela,TrustType,Agent,PlaneComCode,LoadPort,'
+ 'UnLoadPort,Freight,GoDate,CargoVolume,GoodsName,TotalWeight,TotalNumber,'
+ 'TotalSize,Operator,OperatorName,BussinessMan,QuoteDate,TruckRequest,FareRequest,FileRequest,'
+ 'outin,Remark) Values(';
FrmMain.InsStr(sqlstr, Trim(QuoteCode), ',');
FrmMain.InsStr(sqlstr, Trim(EdtCustQuoteCode.text), ',');
FrmMain.InsStr(sqlstr, trim(EdtBtnCusCode.Text), ',');
FrmMain.InsStr(sqlstr, Trim(EdtCusCodeTele.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtCusCodeAddr.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtCusCodeRela.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtBtnConsignCode.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtConsignCodeTele.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtConsignCodeAddr.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtConsignCodeRela.Text), ',');
FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbTrustType.Text)), ',');
FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbAgent.Text, 2)), ',');
FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbPlaneComCOde.Text)), ',');
FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbLoadPort.Text)), ',');
FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbUnLoadPort.Text)), ',');
FrmMain.InsStr(sqlStr, Trim(EdtFreight.Text), ',');
FrmMain.InsStr(sqlStr, Trim(DateTOStr(int(DtpGoDate.Date))), ',');
FrmMain.InsStr(sqlStr, Trim(EdtCargoVolume.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtGoodsName.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtTotalWeight.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtTotalNumber.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtTotalSize.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtOperator.Text), ',');
FrmMain.InsStr(sqlStr, Trim(EdtOperatorName.Text), ',');
FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbBussinessMan.Text)), ',');
FrmMain.InsStr(sqlStr, Trim(DatetoStr(int(DtpQuoteDate.Date))), ',');
FrmMain.InsStr(sqlStr, Trim(MemTruckRequest.Lines.Text), ',');
FrmMain.InsStr(sqlStr, Trim(MemFareRequest.Lines.Text), ',');
FrmMain.InsStr(sqlStr, Trim(MemFileRequest.Lines.Text), ',');
if RadOut.Checked then
FrmMain.InsStr(sqlstr, 0, ',')
else
FrmMain.InsStr(sqlstr, 1, ',');
FrmMain.InsStr(SqlStr, Trim(EdtRemark.Text), '');
if FrmMain.ExecSQL(SqlStr) then
else
begin
ShowMessage('插入记录失败,请检查!');
exit;
end;
IsEdit := True;
BtnAdd.Enabled := True;
with FrmBussinessBillInfo do
begin
TempRowCount := GridBillQuote.RowCount;
if GridBillQuote.Cells[14, 1] = '' then
begin
GridBillQuote.Cells[0, 1] := EdtCustQuoteCode.Text;
GridBillQuote.Cells[1, 1] := EdtBtnCusCode.Text;
GridBillQuote.Cells[2, 1] := EdtBtnConsignCode.Text;
GridBillQuote.Cells[3, 1] := FrmMain.GetFieldText(CmbAgent.Text, 2);
GridBillQuote.Cells[4, 1] := FrmMain.GetFieldText(CmbTrustType.Text, 2);
GridBillQuote.Cells[5, 1] := FrmMain.GetFieldText(CmbPlaneComCode.Text, 2);
GridBillQuote.Cells[6, 1] := EdtFreight.Text;
GridBillQuote.Cells[7, 1] := FrmMain.GetFieldText(CmbLoadPort.Text, 2);
GridBillQuote.Cells[8, 1] := FrmMain.GetFieldText(CmbUnLoadPort.Text, 2);
GridBillQuote.Cells[9, 1] := DateTOStr(DtpGoDate.Date);
GridBillQuote.Cells[10, 1] := EdtGoodsName.Text;
GridBillQuote.Cells[11, 1] := EdtTotalNumber.Text;
GridBillQuote.Cells[12, 1] := EdtTotalWeight.Text;
GridBillQuote.Cells[13, 1] := EdtTotalSize.Text;
GridBillQuote.Cells[14, 1] := QuoteCode;
GridBillQuote.SelectRows(1, 1);
CurrentRow := 1;
end
else
begin
GridBillQuote.AddRow;
GridBillQuote.Cells[0, TempRowCount] := EdtCustQuoteCode.Text;
GridBillQuote.Cells[1, TempRowCount] := EdtBtnCusCode.Text;
GridBillQuote.Cells[2, TempRowCount] := EdtBtnConsignCode.Text;
GridBillQuote.Cells[3, TempRowCount] := FrmMain.GetFieldText(CmbAgent.Text, 2);
GridBillQuote.Cells[4, TempRowCount] := FrmMain.GetFieldText(CmbTrustType.Text, 2);
GridBillQuote.Cells[5, TempRowCount] := FrmMain.GetFieldText(CmbPlaneComCode.Text, 2);
GridBillQuote.Cells[6, TempRowCount] := EdtFreight.Text;
GridBillQuote.Cells[7, TempRowCount] := FrmMain.GetFieldText(CmbLoadPort.Text, 2);
GridBillQuote.Cells[8, TempRowCount] := FrmMain.GetFieldText(CmbUnLoadPort.Text, 2);
GridBillQuote.Cells[9, TempRowCount] := DateTOStr(DtpGoDate.Date);
GridBillQuote.Cells[10, TempRowCount] := EdtGoodsName.Text;
GridBillQuote.Cells[11, TempRowCount] := EdtTotalNumber.Text;
GridBillQuote.Cells[12, TempRowCount] := EdtTotalWeight.Text;
GridBillQuote.Cells[13, TempRowCount] := EdtTotalSize.Text;
GridBillQuote.Cells[14, TempRowCount] := QuoteCode;
GridBillQuote.SelectRows(TempRowCount, 1);
CurrentRow := TempRowCount;
end;
end;
except
ShowMessage('插入记录失败,请检查!');
exit;
end;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -