📄 u_comwet.pas
字号:
unit U_comwet;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, StdCtrls, ExtCtrls, Db, DBTables, WinSkinData, WinSkinForm;
type
TF_COMWET = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Label1: TLabel;
Edit3: TEdit;
Label3: TLabel;
Panel3: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Edit4: TEdit;
Panel8: TPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label10: TLabel;
Label11: TLabel;
Label14: TLabel;
Panel1: TPanel;
Edit8: TEdit;
Panel2: TPanel;
PrnBtn: TButton;
Table1: TTable;
Label8: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label13: TLabel;
Table2: TTable;
Timer1: TTimer;
Panel4: TPanel;
Button1: TButton;
Panel7: TPanel;
Copy: TButton;
Edit14: TEdit;
Table3: TTable;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
Table4: TTable;
Table5: TTable;
Table6: TTable;
Table7: TTable;
Table8: TTable;
Table9: TTable;
Edit5: TEdit;
Label7: TLabel;
Label9: TLabel;
Panel9: TPanel;
Edit6: TEdit;
Edit7: TEdit;
Edit9: TEdit;
Label12: TLabel;
Label15: TLabel;
Label16: TLabel;
Edit10: TEdit;
WinSkinForm1: TWinSkinForm;
SkinData1: TSkinData;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure ComboBox2DropDown(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure CopyClick(Sender: TObject);
procedure ComboBox3DropDown(Sender: TObject);
procedure ComboBox4DropDown(Sender: TObject);
procedure ComboBox5DropDown(Sender: TObject);
procedure ComboBox6DropDown(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure DataPrn;
procedure PrnBtnClick(Sender: TObject);
procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure LWetDataSave;
private
{ Private declarations }
public
{ Public declarations }
ComErr: Boolean;
Port, StartID, EndID, MemAddr: Integer;
end;
var
F_COMWET: TF_COMWET;
ShowOk, TimeRun: Boolean;
ID, ScanTimes, TimeOut: Integer;
StrSend, StrRecv,str: String;
//DataValue : Extended;
implementation
{$R *.DFM}
uses U_UTIL,PComm,Printers, U_comtest,u_ComLwet;
procedure TF_COMWET.FormShow(Sender: TObject);
begin
Combobox2.SetFocus;
TimeRun :=False;
Edit5.Text:='';
Edit6.Text:='0';
Edit7.Text:='0';
Edit9.Text:='0';
Edit10.Text:='';
Edit14.Text:='';
ComboBox3.clear;
ComboBox4.clear;
ComboBox5.clear;
ComboBox6.clear;
ComboBox1.clear;
ComboBox2.clear;
end;
procedure TF_COMWET.Timer1Timer(Sender: TObject);
begin
Randomize;
// Edit4.Text:=IntToStr(Random(99999)); // 调试用
Edit4.Text:=F_ComTest.Edit3.Text;
Edit6.Text:=Edit4.Text;
Edit9.Text:= FloatToStr(StrToFloat(Edit6.Text)-StrToFloat(Edit7.Text));
if TimeRun=true then
Edit10.Text:=formatdatetime( 'hh:mm:ss',now)
else
begin
Edit14.Text:=formatdatetime( 'hh:mm:ss',now);
Edit10.Text:= '00:00:00';
end;
end;
procedure TF_COMWET.FormCreate(Sender: TObject);
begin
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit14.Text:='';
ComboBox3.clear;
ComboBox4.clear;
ComboBox5.clear;
ComboBox6.clear;
ComboBox1.clear;
ComboBox2.clear;
end;
procedure TF_COMWET.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.close;
Table2.close;
Table3.close;
Table4.close;
Table5.close;
Table6.close;
Table7.close;
Table8.close;
Table9.close;
end;
procedure TF_COMWET.CopyClick(Sender: TObject);
//var i:integer;
begin
if (Combobox1.Text='') or (Combobox2.Text='') or
(Combobox3.Text='') or (Combobox4.Text='') or
(Combobox5.Text='') or (Combobox6.Text='')
then
begin
MessageDlg('请选择有效资料',mtWarning,[mbOK],0);
Exit;
end;
//////////////////////////////
with F_ComWet.Table1 do
TableName:='TWet.dbf';
with F_ComWet.Table1 do
begin
open;
first;
if not EOF then
begin
append;
F_ComWet.Table1['SD']:=ComboBox3.Text; //送货单位
F_ComWet.Table1['RD']:=ComboBox4.Text; //收货单位
F_ComWet.Table1['Name']:=ComboBox5.Text; // 货品名称
F_ComWet.Table1['Opter']:=Combobox1.text;
F_ComWet.Table1['Ord']:=Table1.RecordCount+1;
F_ComWet.Table1['InTime']:=Edit14.Text;
F_ComWet.Table1['OutTime']:= Edit10.Text;
F_ComWet.Table1['Date']:=DateToStr(Now);
F_ComWet.Table1['CarNo']:=Combobox2.text;
F_ComWet.Table1['MeterNo']:=ComboBox6.Text;
F_ComWet.Table1['TWet']:=StrToFloat(Edit6.Text);
F_ComWet.Table1['LWet']:=StrToFloat(Edit7.Text);
F_ComWet.Table1['Wet']:=StrToFloat(Edit9.Text);
F_ComWet.Table1['Kno']:=formatdatetime( 'mmdd',now);
post;
next;
end;
Edit;
F_ComWet.Table1['SD']:=ComboBox3.Text; //送货单位
F_ComWet.Table1['RD']:=ComboBox4.Text; //收货单位
F_ComWet.Table1['Name']:=ComboBox5.Text; // 货品名称
F_ComWet.Table1['Opter']:=Combobox1.text;
F_ComWet.Table1['Ord']:=Table1.RecordCount+1;
F_ComWet.Table1['InTime']:=Edit14.Text;
F_ComWet.Table1['OutTime']:= Edit10.Text;
F_ComWet.Table1['Date']:=DateToStr(Now);
F_ComWet.Table1['CarNo']:=Combobox2.text;
F_ComWet.Table1['MeterNo']:=ComboBox6.Text;
F_ComWet.Table1['TWet']:=StrToFloat(Edit6.Text);
F_ComWet.Table1['LWet']:=StrToFloat(Edit7.Text);
F_ComWet.Table1['Wet']:=StrToFloat(Edit9.Text);
F_ComWet.Table1['Kno']:=formatdatetime( 'mmdd',now);
post;
next;
end;
LWetDataSave;
F_ComWet.Table1.close;
F_ComWet.close;
end;
procedure TF_COMWET.LWetDataSave;
begin
with F_ComLWet.Table1 do
TableName:='LWet.dbf';
with F_ComLWet.Table1 do
begin
open;
first;
if not EOF then
if F_ComLWet.Table1['CarNo']=Combobox2.text then
begin
Edit;
F_ComLWet.Table1['SD']:=ComboBox3.Text; //送货单位
F_ComLWet.Table1['RD']:=ComboBox4.Text; //收货单位
F_ComLWet.Table1['Name']:=ComboBox5.Text; // 货品名称
F_ComLWet.Table1['Opter']:=Combobox1.text;
F_ComLWet.Table1['Ord']:=Table1.RecordCount+1;
F_ComLWet.Table1['InTime']:=Edit14.Text;
F_ComLWet.Table1['OutTime']:= Edit10.Text;
F_ComLWet.Table1['Date']:=DateToStr(Now);
F_ComLWet.Table1['CarNo']:=Combobox2.text;
F_ComLWet.Table1['MeterNo']:=ComboBox6.Text;
F_ComLWet.Table1['TWet']:=StrToFloat(Edit6.Text);
F_ComLWet.Table1['LWet']:=StrToFloat(Edit7.Text);
F_ComLWet.Table1['Wet']:=StrToFloat(Edit9.Text);
F_ComLWet.Table1['Kno']:=formatdatetime( 'dd',now);
post;
next;
end;
end;
F_ComLWet.Table1.close;
end;
procedure TF_COMWET.Button1Click(Sender: TObject);
begin
F_ComWet.Table1.close;
close;
end;
procedure TF_COMWET.ComboBox1DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox1.clear;
List:=Tstringlist.Create;
with List do
begin
with Table5 do
TableName:='OPTER.dbf';
with Table5 do
begin
open;
first;
read;
for i:=1 to Table5.RecordCount do
begin
Add(Table5['Opter']);
next;
ComboBox1.items := List;
end;
close;
end;
end;
end;
procedure TF_COMWET.ComboBox2DropDown(Sender: TObject);
var List:TstringList;
k:integer;
begin
Edit5.Text:='';
Edit6.Text:='0';
Edit7.Text:='0';
Edit9.Text:='0';
Edit10.Text:='';
ComboBox3.clear;
ComboBox4.clear;
ComboBox5.clear;
ComboBox6.clear;
ComboBox1.clear;
ComboBox2.clear;
List:=Tstringlist.Create;
with List do
begin
with Table2 do
TableName:='LWet.dbf';
with Table2 do
begin
open;
first;
read;
for k:=1 to Table2.RecordCount do
if not EOF then
begin
begin
if (Table2['Kno']=formatdatetime( 'mmdd',now)) and
(Table2['TWet']=0) then
begin
Add(Table2['CarNo']);
end;
end;
next;
end;
end;
ComboBox2.items := List;
end;
Table2.close;
end;
procedure TF_COMWET.ComboBox3DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox3.clear;
List:=Tstringlist.Create;
with List do
begin
with Table9 do
TableName:='SD.dbf';
with Table9 do
begin
open;
first;
read;
for i:=1 to Table9.RecordCount do
begin
Add(Table9['SD']);
next;
ComboBox3.items := List;
end;
close;
end;
end;
end;
procedure TF_COMWET.ComboBox4DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox4.clear;
List:=Tstringlist.Create;
with List do
begin
with Table8 do
TableName:='RD.dbf';
with Table8 do
begin
open;
first;
read;
for i:=1 to Table8.RecordCount do
begin
Add(Table8['RD']);
next;
ComboBox4.items := List;
end;
close;
end;
end;
end;
procedure TF_COMWET.ComboBox5DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox5.clear;
List:=Tstringlist.Create;
with List do
begin
with Table7 do
TableName:='NAME.dbf';
with Table7 do
begin
open;
first;
read;
for i:=1 to Table7.RecordCount do
begin
Add(Table7['NAME']);
next;
ComboBox5.items := List;
end;
close;
end;
end;
end;
procedure TF_COMWET.ComboBox6DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
List:=Tstringlist.Create;
with List do
begin
with Table6 do
TableName:='METERNO.dbf';
with Table6 do
begin
open;
first;
read;
for i:=1 to Table6.RecordCount do
begin
Add(Table6['METERNO']);
next;
ComboBox6.items := List;
end;
close;
end;
end;
end;
procedure TF_COMWET.ComboBox2Change(Sender: TObject);
var
i:integer;
begin
TimeRun :=False; //显示入厂时间
if Edit4.Text='' then Edit4.Text:='0';
with Table2 do
TableName:='LWet.dbf';
with Table2 do
begin
open;
first;
read;
for i:=1 to RecordCount do
begin
if not EOF then
begin
if (Table2['Kno']=formatdatetime( 'mmdd',now)) and
(Combobox2.Text=Table2['CarNo']) then
begin
Combobox3.Text:=Table2['SD'];
Combobox4.Text:=Table2['RD'];
Combobox5.Text:=Table2['Name'];
Edit5.Text:=Table2['Ord'];
Combobox6.Text:=Table2['MeterNo'];
Edit7.Text:= FloatToStr(Table2['LWet']);
if Table2['LWet']<>0 then
begin
TimeRun:= True; //显示出厂时间
Edit14.Text:=Table2['InTime'];
end;
end;
next;
end;
end;
Table2.close;
close;
end;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -