📄 dmunit.pas
字号:
JSFDDSDesigner13: TBCDField;
JSFDDSDesigner14: TBCDField;
JSFDDSDesigner15: TBCDField;
JSFDDSDesigner16: TMemoField;
JSFDDSDesigner17: TMemoField;
JSFDDSDesigner18: TMemoField;
JSFDDSDesigner19: TMemoField;
JSFDDSDesigner20: TWideStringField;
JSFDDSDesigner21: TIntegerField;
JSFDDSDesigner22: TBooleanField;
JSFDDSDesigner23: TWideStringField;
JSFDDSDesigner24: TDateTimeField;
JSFDDSDesigner25: TBCDField;
JSFDDSDesigner26: TIntegerField;
JSZD: TADOQuery;
dsJSZD: TDataSource;
JSZDDSDesigner: TAutoIncField;
JSZDDSDesigner2: TWideStringField;
JSZDDSDesigner3: TWideStringField;
JSZDDSDesigner4: TWideStringField;
JSZDDSDesigner5: TWideStringField;
JSZDDSDesigner6: TBCDField;
JSZDDSDesigner7: TWideStringField;
JSZDDSDesigner8: TWideStringField;
JSZDDSDesigner9: TWideStringField;
JSZDDSDesigner10: TWideStringField;
JSZDDSDesigner11: TDateTimeField;
JSZDDSDesigner12: TWideStringField;
JSZDDSDesigner13: TWideStringField;
JSZDDSDesigner14: TBCDField;
JSZDDSDesigner15: TBCDField;
JSZDDSDesigner16: TBCDField;
JSZDDSDesigner17: TBCDField;
JSZDDSDesigner18: TBCDField;
JSZDDSDesigner19: TBCDField;
JSZDDSDesigner20: TBCDField;
JSZDDSDesigner21: TBCDField;
JSZDDSDesigner22: TBCDField;
JSZDDSDesigner23: TBCDField;
JSZDDSDesigner24: TBCDField;
JSZDDSDesigner25: TBCDField;
JSZDDSDesigner26: TBCDField;
JSZDDSDesigner27: TBCDField;
JSZDDSDesigner28: TBCDField;
JSZDDSDesigner1: TBCDField;
JSZDDSDesigner29: TBCDField;
JSZDDSDesigner32: TBCDField;
JSZDDSDesigner30: TBCDField;
JSZDDSDesigner31: TBCDField;
JSZDDSDesigner33: TBCDField;
JSZDDSDesigner34: TBCDField;
JSZDDSDesigner35: TBCDField;
JSZDDSDesigner36: TBCDField;
JSZDDSDesigner110: TBCDField;
JSZDDSDesigner210: TBCDField;
JSZDDSDesigner37: TBCDField;
JSZDDSDesigner38: TBCDField;
JSZDDSDesigner39: TMemoField;
JSZDDSDesigner40: TWideStringField;
JSZDDSDesigner41: TDateTimeField;
TempJS: TADOQuery;
dsTempJS: TDataSource;
TempJSDSDesigner: TAutoIncField;
TempJSc1: TWideStringField;
TempJSc2: TWideStringField;
TempJSc3: TWideStringField;
TempJSc4: TWideStringField;
TempJSc5: TWideStringField;
TempJSc6: TWideStringField;
TempJSc7: TWideStringField;
TempJSc8: TWideStringField;
TempJSc9: TWideStringField;
TempJSc10: TWideStringField;
TempJSc11: TWideStringField;
TempJSc12: TWideStringField;
TempJSc13: TWideStringField;
TempJSc14: TWideStringField;
TempJSc15: TWideStringField;
TempJSc16: TWideStringField;
TempJSc17: TWideStringField;
TempJSc18: TWideStringField;
TempJSc19: TWideStringField;
TempJSc20: TWideStringField;
TempJSc21: TWideStringField;
TempJSc22: TWideStringField;
TempJSc23: TWideStringField;
TempJSc24: TWideStringField;
TempJSc25: TWideStringField;
TempJSc26: TWideStringField;
TempJSc27: TWideStringField;
TempJSc28: TWideStringField;
TempJSDSDesigner2: TWideStringField;
TempJSDSDesigner3: TWideStringField;
FYTJ: TADOQuery;
dsFYTJ: TDataSource;
FYTJDSDesigner: TAutoIncField;
FYTJDSDesigner2: TWideStringField;
FYTJDSDesigner3: TWideStringField;
FYTJDSDesigner4: TWideStringField;
FYTJDSDesigner5: TWideStringField;
FYTJDSDesigner6: TBCDField;
FYTJDSDesigner7: TWideStringField;
FYTJDSDesigner8: TWideStringField;
FYTJDSDesigner9: TWideStringField;
FYTJDSDesigner10: TWideStringField;
FYTJDSDesigner11: TDateTimeField;
FYTJDSDesigner12: TWideStringField;
FYTJDSDesigner13: TWideStringField;
FYTJDSDesigner14: TBCDField;
FYTJDSDesigner15: TBCDField;
FYTJDSDesigner16: TBCDField;
FYTJDSDesigner17: TBCDField;
FYTJDSDesigner18: TBCDField;
FYTJDSDesigner19: TBCDField;
FYTJDSDesigner20: TBCDField;
FYTJDSDesigner21: TBCDField;
FYTJDSDesigner22: TBCDField;
FYTJDSDesigner23: TBCDField;
FYTJDSDesigner24: TBCDField;
FYTJDSDesigner25: TBCDField;
FYTJDSDesigner26: TBCDField;
FYTJDSDesigner27: TBCDField;
FYTJDSDesigner28: TBCDField;
FYTJDSDesigner1: TBCDField;
FYTJDSDesigner29: TBCDField;
FYTJDSDesigner32: TBCDField;
FYTJDSDesigner30: TBCDField;
FYTJDSDesigner31: TBCDField;
FYTJDSDesigner33: TBCDField;
FYTJDSDesigner34: TBCDField;
FYTJDSDesigner35: TBCDField;
FYTJDSDesigner36: TBCDField;
FYTJDSDesigner110: TBCDField;
FYTJDSDesigner210: TBCDField;
FYTJDSDesigner37: TBCDField;
FYTJDSDesigner38: TBCDField;
FYTJDSDesigner39: TMemoField;
FYTJDSDesigner40: TWideStringField;
FYTJDSDesigner41: TDateTimeField;
CKJS: TADOQuery;
dsCKJS: TDataSource;
CKJSDSDesigner: TAutoIncField;
CKJSDSDesigner2: TDateTimeField;
CKJSDSDesigner3: TWideStringField;
CKJSDSDesigner4: TWideStringField;
CKJSDSDesigner5: TWideStringField;
CKJSDSDesigner6: TWideStringField;
CKJSDSDesigner7: TWideStringField;
CKJSDSDesigner8: TWideStringField;
CKJSDSDesigner9: TWideStringField;
CKJSDSDesigner10: TWideStringField;
CKJSDSDesigner11: TWideStringField;
CKJSDSDesigner12: TWideStringField;
CKJSDSDesigner13: TWideStringField;
CKJSDSDesigner14: TWideStringField;
CKJSDSDesigner15: TWideStringField;
CKJSDSDesigner16: TWideStringField;
CKJSDSDesigner17: TWideStringField;
CKJSDSDesigner18: TWideStringField;
CKJSDSDesigner19: TBCDField;
CKJSDSDesigner20: TBCDField;
CKJSDSDesigner21: TBCDField;
CKJSDSDesigner22: TBCDField;
CKJSDSDesigner23: TWideStringField;
CKJSDSDesigner24: TMemoField;
CKJSDSDesigner25: TBooleanField;
CKJSDSDesigner26: TWideStringField;
CKJSDSDesigner27: TDateTimeField;
CKJSDSDesigner28: TWideStringField;
CKJSDSDesigner29: TBooleanField;
CKJSDSDesigner30: TBCDField;
CKJSDSDesigner31: TBCDField;
CKJSDSDesigner32: TBCDField;
CKJSDSDesigner33: TBCDField;
CKJSDSDesigner34: TBCDField;
CKJSDSDesigner35: TBCDField;
CKJSDSDesigner36: TBCDField;
CKJSDSDesigner37: TBCDField;
CKJSDSDesigner38: TBCDField;
CKJSDSDesigner39: TBCDField;
procedure dscompanyDataChange(Sender: TObject; Field: TField);
procedure DataModuleCreate(Sender: TObject);
procedure dsCZDataChange(Sender: TObject; Field: TField);
procedure dsJCDDataChange(Sender: TObject; Field: TField);
procedure dsHYZYDataChange(Sender: TObject; Field: TField);
procedure dsCLZLDataChange(Sender: TObject; Field: TField);
procedure dsJSFDDataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
public
{--- 打开所有的表 ---}
procedure OpenAll;
{ Public declarations }
end;
var
DM: TDM;
implementation
uses WH110Unit, WH420Unit, ZY110Unit, ZY310Unit, CX120Unit, CX210Unit,
CX220Unit, CX310Unit, JS420Unit, JS210Unit, JS110Unit;
{$R *.dfm}
{--- 打开所有的表 ---}
procedure TDM.OpenAll;
begin
Conn.Connected := True; {--- 连接到数据库 ---}
Company.Open; {--- 打开与表“公司名称”的连接 ---}
user.Open; {--- 打开与表“用户权限”的连接 ---}
UserLogin.Open; {--- 打开与表“用户登陆”的连接 ---}
WLType.Open; {--- 打开与表“物流方式”的连接 ---}
WTDW.Open; {--- 打开与表“委托单位”的连接 ---}
JYDW.Open; {--- 打开与表“经营单位”的连接 ---}
DGMC.Open; {--- 打开与表“到港名称”的连接 ---}
CKMC.Open; {--- 打开与表“仓库名称”的连接 ---}
CLZL.Open; {--- 打开与表“车辆资料”的连接 ---}
CDMC.Open; {--- 打开与表“车队名称”的连接 ---}
KHZL.Open; {--- 打开与表“客户明细资料”的连接 ---}
CZ.Open; {--- 打开与表“传真”的连接 ---}
BJD.Open; {--- 打开与表“报价单”的连接 ---}
HYZY.Open; {--- 打开与表“货运资料”的连接 ---}
HYMX.Open; {--- 打开与表“货运明细”的连接 ---}
JCD.Open; {--- 打开与表“进仓单”的连接 ---}
CCD.Open; {--- 打开与表“出仓单”的连接 ---}
CKTJ.Open; {--- 打开与表“仓库统计”的连接 ---}
JSFD.Open; {--- 打开与表“结算分单”的连接 ---}
TempJS.Open; {--- 打开与表“临时结算分单”的连接 ---}
JSZD.Open; {--- 打开与表“结算总单”的连接 ---}
FYTJ.Open; {--- 打开与表“费用统计”的连接 ---}
CKJS.Open; {--- 打开与表“仓库结算”的连接 ---}
end;
procedure TDM.dscompanyDataChange(Sender: TObject; Field: TField);
begin
if Assigned(WH110Form) then // 如果在WH110Form中
WH110Form.Button1.Enabled := True; //记录发生改变，Button1可用。提交保存
end;
procedure TDM.DataModuleCreate(Sender: TObject);
begin
OpenAll
{conn.Connected:=True; if conn.Connected then
else
begin
if MessageBox(0, '连接后台数据库失败，是否重新指定数据库位置连接',
'严重错误', MB_YESNO + MB_ICONSTOP) = IDYES then
begin
Conn.Close;
conn.Open;
end;
end; }
end;
procedure TDM.dsCZDataChange(Sender: TObject; Field: TField);
begin
if Assigned(WH420Form) then // 如果在WH420Form中
begin
with WH420Form do
begin
Edit1.Text := Company.FieldByName('名称').AsString;
Edit2.Text := DateTimeToStr(Now);
Edit3.Text := Company.FieldByName('电话').AsString;
Edit4.Text := Company.FieldByName('传真').AsString;
end;
end;
end;
procedure TDM.dsJCDDataChange(Sender: TObject; Field: TField);
begin
if Assigned(ZY310Form) then
begin {--- 判断是否可以进行查询 ---}
if (ZY310Form.DBGrid1.FieldCount > 0) and (DM.JCD.RecordCount > 0) then
begin
with DM.QueryTemp1 do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 出仓单 where 委托单号=:AA';
Parameters.ParamByName('AA').Value := DM.JCD.FieldByName('委托单号').AsString;
Open;
end;
ZY310Form.DBGrid2.DataSource := DM.dsQueryTemp1;
ZY310Form.DBNavigator2.DataSource := DM.dsQueryTemp1;
end;
end;
end;
procedure TDM.dsHYZYDataChange(Sender: TObject; Field: TField);
begin
if Assigned(JS110Form) then
begin
if DM.HYMX.RecordCount <> 0 then
begin
with DM.HYMX do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 货运明细 where 委托单号=:AA';
Parameters.ParamByName('AA').Value := DM.HYZY.FieldByName('委托单号').AsString;
Open;
end;
end;
end;
if Assigned(ZY110Form) then
begin
if DM.HYMX.RecordCount <> 0 then
begin
with DM.HYMX do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 货运明细 where 委托单号=:AA';
Parameters.ParamByName('AA').Value := DM.HYZY.FieldByName('委托单号').AsString;
Open;
end;
ZY110Form.DBGrid2.DataSource := DM.dsHYMX;
ZY110Form.DBNavigator3.DataSource := DM.dsHYMX;
end;
end;
if Assigned(CX120Form) then
begin
if DM.HYMX.RecordCount <> 0 then
begin
with DM.HYMX do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 货运明细 where 委托单号=:AA';
Parameters.ParamByName('AA').Value := DM.HYZY.FieldByName('委托单号').AsString;
Open;
end;
CX120Form.DBGrid2.DataSource := DM.dsHYMX;
CX120Form.DBNavigator2.DataSource := DM.dsHYMX;
end;
end;
if Assigned(CX210Form) then
begin
if DM.HYMX.RecordCount <> 0 then
begin
with DM.HYMX do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 货运明细 where 委托单号=:AA';
Parameters.ParamByName('AA').Value := DM.HYZY.FieldByName('委托单号').AsString;
Open;
end;
CX210Form.DBGrid2.DataSource := DM.dsHYMX;
CX210Form.DBNavigator2.DataSource := DM.dsHYMX;
end;
end;
if Assigned(CX220Form) then
begin
if DM.HYMX.RecordCount <> 0 then
begin
with DM.HYMX do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 货运明细 where 委托单号=:AA';
Parameters.ParamByName('AA').Value := DM.HYZY.FieldByName('委托单号').AsString;
Open;
end;
CX220Form.DBGrid2.DataSource := DM.dsHYMX;
CX220Form.DBNavigator2.DataSource := DM.dsHYMX;
end;
end;
end;
procedure TDM.dsCLZLDataChange(Sender: TObject; Field: TField);
begin
if Assigned(CX310Form) then
begin
with DM.QueryTemp do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 货运明细 where 车号=:AA';
Parameters.ParamByName('AA').Value := DM.CLZL.FieldByName('车牌号码').AsString;
Open;
end;
CX310Form.DBGrid2.DataSource := DM.dsQueryTemp;
CX310Form.DBNavigator2.DataSource := DM.dsQueryTemp;
end;
if Assigned(JS420Form) then
begin
with DM.QueryTemp do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 货运明细 where 车号=:AA';
Parameters.ParamByName('AA').Value := DM.CLZL.FieldByName('车牌号码').AsString;
Open;
end;
JS420Form.DBGrid2.DataSource := DM.dsQueryTemp;
JS420Form.DBNavigator2.DataSource := DM.dsQueryTemp;
end;
end;
procedure TDM.dsJSFDDataChange(Sender: TObject; Field: TField);
begin
if not ((DM.JSFD.State = dsInsert) or (DM.JSFD.State = dsEdit)) then
begin
if Assigned(JS210Form) then
begin
with DM.TempJS do
begin
close;
SQL.Clear;
{--- 搜寻该编号的所有数据 ---}
SQL.Text := 'Select * from 结算分单 where 结算单位=:AA and 委托单号=:BB';
Parameters.ParamByName('AA').Value := DM.JSFD.FieldByName('结算单位').AsString;
Parameters.ParamByName('BB').Value := DM.JSFD.FieldByName('委托单号').AsString;
Open;
end;
end;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -