📄 u_gloat.pas
字号:
unit u_Gloat;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Db, DBTables, Menus, jpeg, WinSkinData, WinSkinForm;
type
TF_Gloat = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel4: TPanel;
Panel5: TPanel;
OK: TButton;
Image1: TImage;
Timer1: TTimer;
Panel3: TPanel;
Panel6: TPanel;
Panel7: TPanel;
ComboBox1: TComboBox;
Label1: TLabel;
ComboBox2: TComboBox;
Label2: TLabel;
ComboBox3: TComboBox;
Label3: TLabel;
Label4: TLabel;
ComboBox4: TComboBox;
Label5: TLabel;
ComboBox5: TComboBox;
Panel8: TPanel;
Edit1: TEdit;
Panel9: TPanel;
Panel10: TPanel;
Edit2: TEdit;
Panel11: TPanel;
Edit3: TEdit;
Panel12: TPanel;
Panel13: TPanel;
Edit4: TEdit;
Label6: TLabel;
Edit14: TEdit;
Label7: TLabel;
Edit10: TEdit;
Panel14: TPanel;
Edit6: TEdit;
Edit7: TEdit;
Edit9: TEdit;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
FirstPrn: TButton;
Table1: TTable;
Table2: TTable;
Table3: TTable;
Table4: TTable;
Timer2: TTimer;
Table5: TTable;
Label18: TLabel;
Edit5: TEdit;
Label19: TLabel;
ComboBox6: TComboBox;
Table6: TTable;
Button1: TButton;
Table7: TTable;
Label20: TLabel;
Edit8: TEdit;
Label21: TLabel;
Label22: TLabel;
Edit11: TEdit;
Table8: TTable;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button2: TButton;
WinSkinForm1: TWinSkinForm;
SkinData1: TSkinData;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBox3DropDown(Sender: TObject);
procedure ComboBox4DropDown(Sender: TObject);
procedure ComboBox5DropDown(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox2DropDown(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure OKClick(Sender: TObject);
procedure FirstPrnClick(Sender: TObject);
procedure ComboBox6DropDown(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
DataCounts: Integer;
SaveFileName: String;
end;
var
F_Gloat: TF_Gloat;
Rect1:TRect;
x,y:integer;
TimeRun,NoONE,NoTWO,NoTHREE,NoFOUR:Boolean;
implementation
uses mmsystem, U_comtest,Printers;
{$R *.DFM}
procedure TF_Gloat.FormCreate(Sender: TObject);
begin
Timer1.Interval:=20;
Image1.Canvas.Brush.Color:=clBlack;
Rect1:=Rect(0,0,Image1.width,Image1.Height);
Image1.Canvas.FillRect(Rect1);
end;
procedure TF_Gloat.Timer1Timer(Sender: TObject);
begin
Randomize;
X:=X-1;
if x<-140 then
begin
Image1.Canvas.Brush.Color:=clBlack;
Rect1:=Rect(0,0,Image1.width,Image1.Height);
Image1.Canvas.FillRect(Rect1);
X:=Image1.Width;
end;
with Image1.Canvas do
begin
Font.Size:=32;
Font.Style := [fsBold];
TextOut(X,10,'亿达公司 以人才为本 亿达产品 以品质保证');
case Random(10) of
1:Font.Color:= clRed;//clWhite;
2:Font.Color:= clyellow;
end;
end;
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_Gloat.FormShow(Sender: TObject);
begin
Combobox2.SetFocus;
RadioButton1.checked:=False;
RadioButton2.checked:=False;
RadioButton3.checked:=False;
RadioButton4.checked:=False;
RadioButton1.Enabled:=True;
RadioButton2.Enabled:=True;
RadioButton3.Enabled:=True;
RadioButton4.Enabled:=True;
Panel6.Visible:=true;
Panel5.Visible:=true;
Button2.Visible:=False;
Panel14.Visible:=False;
FirstPrn.Visible:=True;
NoONE:=False ;
NoTWO:=False ;
NoTHREE:=False ;
NoFOUR:=False ;
TimeRun :=False;
ComboBox1.clear;
ComboBox2.clear;
ComboBox3.clear;
ComboBox4.clear;
ComboBox5.clear;
ComboBox6.clear;
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
Edit5.Text:='0';
Edit6.Text:='0';
Edit7.Text:='0';
Edit8.Text:='0';
Edit9.Text:='0';
Edit10.Text:='0';
Edit14.Text:='0';
with Table8 do
TableName:='EmptyJar.dbf';
with Table8 do
begin
open;
first;
read;
Edit11.Text:= Table8['DATE'];
Edit8.Text:=Table8['JARWET'];
end;
Table8.close;
end;
procedure TF_Gloat.ComboBox3DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox3.clear;
List:=Tstringlist.Create;
with List do
begin
with Table1 do
TableName:='SD.dbf';
with Table1 do
begin
open;
first;
read;
for i:=1 to Table1.RecordCount do
begin
Add(Table1['SD']);
next;
ComboBox3.items := List;
end;
close;
end;
end;
end;
procedure TF_Gloat.ComboBox4DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox4.clear;
List:=Tstringlist.Create;
with List do
begin
with Table2 do
TableName:='RD.dbf';
with Table2 do
begin
open;
first;
read;
for i:=1 to Table2.RecordCount do
begin
Add(Table2['RD']);
next;
ComboBox4.items := List;
end;
close;
end;
end;
end;
procedure TF_Gloat.ComboBox5DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox5.clear;
List:=Tstringlist.Create;
with List do
begin
with Table3 do
TableName:='NAME.dbf';
with Table3 do
begin
open;
first;
read;
for i:=1 to Table3.RecordCount do
begin
Add(Table3['NAME']);
next;
ComboBox5.items := List;
end;
close;
end;
end;
end;
procedure TF_Gloat.ComboBox1DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox1.clear;
List:=Tstringlist.Create;
with List do
begin
with Table4 do
TableName:='OPTER.dbf';
with Table4 do
begin
open;
first;
read;
for i:=1 to Table4.RecordCount do
begin
Add(Table4['Opter']);
next;
ComboBox1.items := List;
end;
close;
end;
end;
end;
procedure TF_Gloat.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
RadioButton1.Enabled:=True;
RadioButton2.Enabled:=True;
RadioButton3.Enabled:=True;
RadioButton4.Enabled:=True;
RadioButton1.Checked:=True;
RadioButton2.Checked:=False;
RadioButton3.Checked:=False;
RadioButton4.Checked:=False;
ComboBox3.clear;
ComboBox4.clear;
ComboBox5.clear;
ComboBox6.clear;
ComboBox1.clear;
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
Edit5.Text:='0';
Edit6.Text:='0';
Edit7.Text:='0';
Edit9.Text:='0';
Edit10.Text:='0';
Edit14.Text:='0';
Panel14.Visible:=False;
FirstPrn.Visible:=True;
OK.Visible:=True;
NoONE:=True;
NoTWO:=False;
NoTHREE:=False;
NoFOUR:=False;
TimeRun:=False;
end;
procedure TF_Gloat.ComboBox2DropDown(Sender: TObject);
var List:TstringList;
k:integer;
//SeekData:String;
begin
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
Edit6.Text:='0';
Edit7.Text:='0';
Edit9.Text:='0';
Edit10.Text:='0';
Edit14.Text:='0';
ComboBox3.clear;
ComboBox4.clear;
ComboBox5.clear;
ComboBox1.clear;
ComboBox2.clear;
List:=Tstringlist.Create;
with List do
begin
with Table5 do
TableName:='Gloat.dbf';
with Table5 do
begin
open;
first;
read;
for k:=1 to Table5.RecordCount do
begin
if not EOF then
begin
if Table5['Kno']=formatdatetime( 'mmdd',now) then
begin
Add(Table5['CarNo']);
end;
end;
next;
end;
end;
ComboBox2.items := List;
end;
Table5.close;
end;
procedure TF_Gloat.ComboBox2Change(Sender: TObject);
var
i:integer;
begin
RadioButton1.Enabled:=True;
RadioButton2.Enabled:=True;
RadioButton3.Enabled:=True;
RadioButton4.Enabled:=True;
with Table5 do
TableName:='Gloat.dbf';
with Table5 do
begin
open;
first;
read;
for i:=1 to Table5.RecordCount do
begin
if not EOF then
begin
if (Combobox2.Text=Table5['CarNo']) and
(Table5['Kno']=formatdatetime( 'mmdd',now)) then
begin
Combobox3.Text:=Table5['SD'];
Combobox4.Text:=Table5['RD'];
Combobox5.Text:=Table5['Name'];
Combobox6.Text:=Table5['METERNO'];
Edit1.Text:=Table5['ONE'];
Edit2.Text:=Table5['TWO'];
Edit3.Text:=Table5['THREE'];
Edit4.Text:=Table5['FOUR'];
Edit5.Text:=Table5['ORD'];
Edit14.Text:= Table5['InTime'];
if Table5['ONE']='0' then NoOne:=True
else if (Table5['TWO']='0') and (Table5['ONE']<>'0') then
begin
NoOne:=False;
NoTWO:=True ;
NoTHREE:=False;
NoFOUR:=False;
OK.Visible:=True;
FirstPrn.Visible:=True;
Panel14.Visible:=True;
TimeRun:=True;
end
else if (Table5['THREE']='0') and (Table5['ONE']<>'0') and (Table5['TWO']<>'0') then
begin
OK.Visible:=True;
FirstPrn.Visible:=True;
Panel14.Visible:=False;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -