Code
1unit VehiclePonderation;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 SingleMoudle, Db, ADODB, PrnDbgeh, Wwdatsrc, ActnList, ImgList, Grids,
8 DBGridEh, ExtCtrls, StdCtrls, wwSpeedButton, wwDBNavigator, wwclearpanel,
9 ComCtrls, ToolWin, Mask, DBCtrls, MemTableEh, DataDriverEh, GridsEh,
10 wwdbdatetimepicker, Buttons, wwdblook, OoMisc, AdPort, Spin, Menus,
11 FR_Class, FR_DSet, FR_DBSet;
12
13type
14 TVehiclePonderationFrm = class(TSingleMoudleFrm)
15 wwModuleQryId: TIntegerField;
16 wwModuleQryVehicleNo: TStringField;
17 wwModuleQryWeight0: TFloatField;
18 wwModuleQryWeight1: TFloatField;
19 wwModuleQryWeight2: TFloatField;
20 wwModuleQryWeight3: TFloatField;
21 wwModuleQryRemark: TStringField;
22 ICVehicleInOutQry: TADOQuery;
23 ICVehicleInOutQryId: TIntegerField;
24 ICVehicleInOutQryWork_No: TIntegerField;
25 DataSource1: TDataSource;
26 Panel3: TPanel;
27 Panel5: TPanel;
28 DBGridEh3: TDBGridEh;
29 Label1: TLabel;
30 DBEdit1: TDBEdit;
31 Label2: TLabel;
32 DBEdit2: TDBEdit;
33 Label3: TLabel;
34 DBEdit3: TDBEdit;
35 Label4: TLabel;
36 DBEdit4: TDBEdit;
37 Label5: TLabel;
38 DBEdit5: TDBEdit;
39 Label6: TLabel;
40 DBEdit6: TDBEdit;
41 wwModuleQryPonderation_No: TIntegerField;
42 ICVehicleInOutQryVehicleNo: TStringField;
43 Label8: TLabel;
44 DBEdit8: TDBEdit;
45 wwModuleQryOccur_Date: TDateTimeField;
46 Label15: TLabel;
47 wwDBDateTimePicker1: TwwDBDateTimePicker;
48 DBEdit7: TDBEdit;
49 Label7: TLabel;
50 SpeedButton1: TSpeedButton;
51 SpeedButton2: TSpeedButton;
52 Panel1: TPanel;
53 Label9: TLabel;
54 Label10: TLabel;
55 dtStart: TDateTimePicker;
56 dtEnd: TDateTimePicker;
57 Button1: TButton;
58 Button6: TButton;
59 Button2: TButton;
60 CheckBox1: TCheckBox;
61 ComPort1: TApdComPort;
62 Panel2: TPanel;
63 wwModuleQryShipper_Id: TIntegerField;
64 wwModuleQryMateriel_Name: TStringField;
65 wwModuleQryOccur_Date1: TDateTimeField;
66 wwModuleQryAmount: TFloatField;
67 Label12: TLabel;
68 CustomerInfoLK1: TwwDBLookupCombo;
69 Label13: TLabel;
70 SpinEdit1: TSpinEdit;
71 wwModuleQryIC_No: TStringField;
72 Label14: TLabel;
73 DBEdit10: TDBEdit;
74 frDBDataSet1: TfrDBDataSet;
75 frReport1: TfrReport;
76 PopupMenu1: TPopupMenu;
77 N4r5te1: TMenuItem;
78 ertre1: TMenuItem;
79 wwModuleQryPonderation_Type: TStringField;
80 wwModuleQryKa_No: TStringField;
81 Label11: TLabel;
82 DBEdit9: TDBEdit;
83 Label16: TLabel;
84 DBEdit11: TDBEdit;
85 Label17: TLabel;
86 wwDBDateTimePicker2: TwwDBDateTimePicker;
87 Label18: TLabel;
88 DBComboBox1: TDBComboBox;
89 wwModuleQryUserID: TStringField;
90 wwModuleQryInput_Date: TDateTimeField;
91 Label19: TLabel;
92 DBEdit12: TDBEdit;
93 Label20: TLabel;
94 DBEdit13: TDBEdit;
95 wwModuleQryshipper_name: TStringField;
96 Label21: TLabel;
97 DBEdit14: TDBEdit;
98 Button3: TButton;
99 wwModuleQrykong_weight: TFloatField;
100 wwModuleQryzong_weight: TFloatField;
101 Timer1: TTimer;
102 wwModuleQryhandleperson_name: TStringField;
103 wwModuleQryWork_No: TStringField;
104 wwModuleQryweight4: TFloatField;
105 N1: TMenuItem;
106 frReport2: TfrReport;
107 wwModuleDetQryId: TIntegerField;
108 wwModuleDetQryMaster_Id: TIntegerField;
109 wwModuleDetQryAmount: TFloatField;
110 wwModuleDetQryWeight: TFloatField;
111 wwModuleDetQryUserID: TStringField;
112 wwModuleDetQryInput_Date: TDateTimeField;
113 wwModuleDetQryRemark: TStringField;
114 N2: TMenuItem;
115 frReport3: TfrReport;
116 procedure DBGridEh3DblClick(Sender: TObject);
117 procedure wwModuleQryAfterInsert(DataSet: TDataSet);
118 procedure wwModuleQryBeforePost(DataSet: TDataSet);
119 procedure Button1Click(Sender: TObject);
120 procedure FormCreate(Sender: TObject);
121 procedure CheckBox1Click(Sender: TObject);
122 procedure SpeedButton1Click(Sender: TObject);
123 procedure SpeedButton2Click(Sender: TObject);
124 procedure Button2Click(Sender: TObject);
125 procedure ComPort1Trigger(CP: TObject; Msg, TriggerHandle, Data: Word);
126 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
127 procedure tbPrintClick(Sender: TObject);
128 procedure ertre1Click(Sender: TObject);
129 procedure Button3Click(Sender: TObject);
130 procedure wwModuleQryCalcFields(DataSet: TDataSet);
131 procedure Timer1Timer(Sender: TObject);
132 procedure FormActivate(Sender: TObject);
133 procedure N1Click(Sender: TObject);
134 procedure Button6Click(Sender: TObject);
135 procedure Panel1Click(Sender: TObject);
136 procedure N2Click(Sender: TObject);
137 private
138 CodeArr:array[0..82] of String;
139 WeighS: String;
140 counti: integer;
141 IC_No:Integer;
142 RefreshCount: integer;
143 function Gethex(data: Char): String;
144 function GetVehicleNo: String;
145 { Private declarations }
146 public
147 procedure GetVehiclePonderation(Weight: Double);
148 { Public declarations }
149 end;
150
151var
152 VehiclePonderationFrm: TVehiclePonderationFrm;
153 procedure ExecVehiclePonderation;
154
155implementation
156
157uses CommonData, ICCommon, CommonFunction, Ponderation;
158//97.5
159{$R *.DFM}
160
161procedure ExecVehiclePonderation;
162begin
163 VehiclePonderationFrm := TVehiclePonderationFrm.Create(nil);
164 try
165 VehiclePonderationFrm.ShowModal;
166 finally
167 VehiclePonderationFrm.Free;
168 end;
169
170end;
171
172procedure TVehiclePonderationFrm.DBGridEh3DblClick(Sender: TObject);
173begin
174 inherited;
175 Button6Click(nil);
176
177end;
178
179procedure TVehiclePonderationFrm.wwModuleQryAfterInsert(DataSet: TDataSet);
180begin
181 inherited;
182end;
183
184procedure TVehiclePonderationFrm.wwModuleQryBeforePost(DataSet: TDataSet);
185begin
186end;
187
188procedure TVehiclePonderationFrm.Button1Click(Sender: TObject);
189begin
190 inherited;
191end;
192
193procedure TVehiclePonderationFrm.FormCreate(Sender: TObject);
194begin
195 inherited;
196 RefreshCount := 0;
197 CodeArr[0] := '0';
198 CodeArr[1] := '1';
199 CodeArr[2] := '2';
200 CodeArr[3] := '3';
201 CodeArr[4] := '4';
202 CodeArr[5] := '5';
203 CodeArr[6] := '6';
204 CodeArr[7] := '7';
205 CodeArr[8] := '8';
206 CodeArr[9] := '9';
207 CodeArr[10] := 'A';
208 CodeArr[11] := 'B';
209 CodeArr[12] := 'C';
210 CodeArr[13] := 'D';
211 CodeArr[14] := 'E';
212 CodeArr[15] := 'F';
213 CodeArr[16] := 'G';
214 CodeArr[17] := 'H';
215 CodeArr[18] := 'I';
216 CodeArr[19] := 'J';
217 CodeArr[20] := 'K';
218 CodeArr[21] := 'L';
219 CodeArr[22] := 'M';
220 CodeArr[23] := 'N';
221 CodeArr[24] := 'O';
222 CodeArr[25] := 'P';
223 CodeArr[26] := 'Q';
224 CodeArr[27] := 'R';
225 CodeArr[28] := 'S';
226 CodeArr[29] := 'T';
227 CodeArr[30] := 'U';
228 CodeArr[31] := 'V';
229 CodeArr[32] := 'W';
230 CodeArr[33] := 'X';
231 CodeArr[34] := 'Y';
232 CodeArr[35] := 'Z';
233 CodeArr[36] := ':';
234 CodeArr[37] := '*';
235 CodeArr[38] := '';
236 CodeArr[39] := '';
237
238
1unit VehiclePonderation;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 SingleMoudle, Db, ADODB, PrnDbgeh, Wwdatsrc, ActnList, ImgList, Grids,
8 DBGridEh, ExtCtrls, StdCtrls, wwSpeedButton, wwDBNavigator, wwclearpanel,
9 ComCtrls, ToolWin, Mask, DBCtrls, MemTableEh, DataDriverEh, GridsEh,
10 wwdbdatetimepicker, Buttons, wwdblook, OoMisc, AdPort, Spin, Menus,
11 FR_Class, FR_DSet, FR_DBSet;
12
13type
14 TVehiclePonderationFrm = class(TSingleMoudleFrm)
15 wwModuleQryId: TIntegerField;
16 wwModuleQryVehicleNo: TStringField;
17 wwModuleQryWeight0: TFloatField;
18 wwModuleQryWeight1: TFloatField;
19 wwModuleQryWeight2: TFloatField;
20 wwModuleQryWeight3: TFloatField;
21 wwModuleQryRemark: TStringField;
22 ICVehicleInOutQry: TADOQuery;
23 ICVehicleInOutQryId: TIntegerField;
24 ICVehicleInOutQryWork_No: TIntegerField;
25 DataSource1: TDataSource;
26 Panel3: TPanel;
27 Panel5: TPanel;
28 DBGridEh3: TDBGridEh;
29 Label1: TLabel;
30 DBEdit1: TDBEdit;
31 Label2: TLabel;
32 DBEdit2: TDBEdit;
33 Label3: TLabel;
34 DBEdit3: TDBEdit;
35 Label4: TLabel;
36 DBEdit4: TDBEdit;
37 Label5: TLabel;
38 DBEdit5: TDBEdit;
39 Label6: TLabel;
40 DBEdit6: TDBEdit;
41 wwModuleQryPonderation_No: TIntegerField;
42 ICVehicleInOutQryVehicleNo: TStringField;
43 Label8: TLabel;
44 DBEdit8: TDBEdit;
45 wwModuleQryOccur_Date: TDateTimeField;
46 Label15: TLabel;
47 wwDBDateTimePicker1: TwwDBDateTimePicker;
48 DBEdit7: TDBEdit;
49 Label7: TLabel;
50 SpeedButton1: TSpeedButton;
51 SpeedButton2: TSpeedButton;
52 Panel1: TPanel;
53 Label9: TLabel;
54 Label10: TLabel;
55 dtStart: TDateTimePicker;
56 dtEnd: TDateTimePicker;
57 Button1: TButton;
58 Button6: TButton;
59 Button2: TButton;
60 CheckBox1: TCheckBox;
61 ComPort1: TApdComPort;
62 Panel2: TPanel;
63 wwModuleQryShipper_Id: TIntegerField;
64 wwModuleQryMateriel_Name: TStringField;
65 wwModuleQryOccur_Date1: TDateTimeField;
66 wwModuleQryAmount: TFloatField;
67 Label12: TLabel;
68 CustomerInfoLK1: TwwDBLookupCombo;
69 Label13: TLabel;
70 SpinEdit1: TSpinEdit;
71 wwModuleQryIC_No: TStringField;
72 Label14: TLabel;
73 DBEdit10: TDBEdit;
74 frDBDataSet1: TfrDBDataSet;
75 frReport1: TfrReport;
76 PopupMenu1: TPopupMenu;
77 N4r5te1: TMenuItem;
78 ertre1: TMenuItem;
79 wwModuleQryPonderation_Type: TStringField;
80 wwModuleQryKa_No: TStringField;
81 Label11: TLabel;
82 DBEdit9: TDBEdit;
83 Label16: TLabel;
84 DBEdit11: TDBEdit;
85 Label17: TLabel;
86 wwDBDateTimePicker2: TwwDBDateTimePicker;
87 Label18: TLabel;
88 DBComboBox1: TDBComboBox;
89 wwModuleQryUserID: TStringField;
90 wwModuleQryInput_Date: TDateTimeField;
91 Label19: TLabel;
92 DBEdit12: TDBEdit;
93 Label20: TLabel;
94 DBEdit13: TDBEdit;
95 wwModuleQryshipper_name: TStringField;
96 Label21: TLabel;
97 DBEdit14: TDBEdit;
98 Button3: TButton;
99 wwModuleQrykong_weight: TFloatField;
100 wwModuleQryzong_weight: TFloatField;
101 Timer1: TTimer;
102 wwModuleQryhandleperson_name: TStringField;
103 wwModuleQryWork_No: TStringField;
104 wwModuleQryweight4: TFloatField;
105 N1: TMenuItem;
106 frReport2: TfrReport;
107 wwModuleDetQryId: TIntegerField;
108 wwModuleDetQryMaster_Id: TIntegerField;
109 wwModuleDetQryAmount: TFloatField;
110 wwModuleDetQryWeight: TFloatField;
111 wwModuleDetQryUserID: TStringField;
112 wwModuleDetQryInput_Date: TDateTimeField;
113 wwModuleDetQryRemark: TStringField;
114 N2: TMenuItem;
115 frReport3: TfrReport;
116 procedure DBGridEh3DblClick(Sender: TObject);
117 procedure wwModuleQryAfterInsert(DataSet: TDataSet);
118 procedure wwModuleQryBeforePost(DataSet: TDataSet);
119 procedure Button1Click(Sender: TObject);
120 procedure FormCreate(Sender: TObject);
121 procedure CheckBox1Click(Sender: TObject);
122 procedure SpeedButton1Click(Sender: TObject);
123 procedure SpeedButton2Click(Sender: TObject);
124 procedure Button2Click(Sender: TObject);
125 procedure ComPort1Trigger(CP: TObject; Msg, TriggerHandle, Data: Word);
126 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
127 procedure tbPrintClick(Sender: TObject);
128 procedure ertre1Click(Sender: TObject);
129 procedure Button3Click(Sender: TObject);
130 procedure wwModuleQryCalcFields(DataSet: TDataSet);
131 procedure Timer1Timer(Sender: TObject);
132 procedure FormActivate(Sender: TObject);
133 procedure N1Click(Sender: TObject);
134 procedure Button6Click(Sender: TObject);
135 procedure Panel1Click(Sender: TObject);
136 procedure N2Click(Sender: TObject);
137 private
138 CodeArr:array[0..82] of String;
139 WeighS: String;
140 counti: integer;
141 IC_No:Integer;
142 RefreshCount: integer;
143 function Gethex(data: Char): String;
144 function GetVehicleNo: String;
145 { Private declarations }
146 public
147 procedure GetVehiclePonderation(Weight: Double);
148 { Public declarations }
149 end;
150
151var
152 VehiclePonderationFrm: TVehiclePonderationFrm;
153 procedure ExecVehiclePonderation;
154
155implementation
156
157uses CommonData, ICCommon, CommonFunction, Ponderation;
158//97.5
159{$R *.DFM}
160
161procedure ExecVehiclePonderation;
162begin
163 VehiclePonderationFrm := TVehiclePonderationFrm.Create(nil);
164 try
165 VehiclePonderationFrm.ShowModal;
166 finally
167 VehiclePonderationFrm.Free;
168 end;
169
170end;
171
172procedure TVehiclePonderationFrm.DBGridEh3DblClick(Sender: TObject);
173begin
174 inherited;
175 Button6Click(nil);
176
177end;
178
179procedure TVehiclePonderationFrm.wwModuleQryAfterInsert(DataSet: TDataSet);
180begin
181 inherited;
182end;
183
184procedure TVehiclePonderationFrm.wwModuleQryBeforePost(DataSet: TDataSet);
185begin
186end;
187
188procedure TVehiclePonderationFrm.Button1Click(Sender: TObject);
189begin
190 inherited;
191end;
192
193procedure TVehiclePonderationFrm.FormCreate(Sender: TObject);
194begin
195 inherited;
196 RefreshCount := 0;
197 CodeArr[0] := '0';
198 CodeArr[1] := '1';
199 CodeArr[2] := '2';
200 CodeArr[3] := '3';
201 CodeArr[4] := '4';
202 CodeArr[5] := '5';
203 CodeArr[6] := '6';
204 CodeArr[7] := '7';
205 CodeArr[8] := '8';
206 CodeArr[9] := '9';
207 CodeArr[10] := 'A';
208 CodeArr[11] := 'B';
209 CodeArr[12] := 'C';
210 CodeArr[13] := 'D';
211 CodeArr[14] := 'E';
212 CodeArr[15] := 'F';
213 CodeArr[16] := 'G';
214 CodeArr[17] := 'H';
215 CodeArr[18] := 'I';
216 CodeArr[19] := 'J';
217 CodeArr[20] := 'K';
218 CodeArr[21] := 'L';
219 CodeArr[22] := 'M';
220 CodeArr[23] := 'N';
221 CodeArr[24] := 'O';
222 CodeArr[25] := 'P';
223 CodeArr[26] := 'Q';
224 CodeArr[27] := 'R';
225 CodeArr[28] := 'S';
226 CodeArr[29] := 'T';
227 CodeArr[30] := 'U';
228 CodeArr[31] := 'V';
229 CodeArr[32] := 'W';
230 CodeArr[33] := 'X';
231 CodeArr[34] := 'Y';
232 CodeArr[35] := 'Z';
233 CodeArr[36] := ':';
234 CodeArr[37] := '*';
235 CodeArr[38] := '';
236 CodeArr[39] := '';
237
238
抱歉!评论已关闭.