u_gloatrecord.pas

这是一个60吨地磅称量系统

unit u_GloatRecord;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables, Menus, jpeg, WinSkinData, WinSkinForm;

type
  TF_GloatRecord = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    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;
    Label18: TLabel;
    Edit5: TEdit;
    Label19: TLabel;
    ComboBox6: TComboBox;
    Button1: TButton;
    Table5: TTable;
    Label20: TLabel;
    Edit8: TEdit;
    Label21: TLabel;
    Label22: TLabel;
    Edit11: TEdit;
    Table8: TTable;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Image1: TImage;
    Table1: TTable;
    WinSkinForm1: TWinSkinForm;
    SkinData1: TSkinData;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure FirstPrnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  
   
  private
    { Private declarations }
  public
    { Public declarations }
     DataCounts: Integer;
     SaveFileName: String;
  end;

var
  F_GloatRecord: TF_GloatRecord;
  Rect1:TRect;
  x,y:integer;
  TimeRun,NoONE,NoTWO,NoTHREE,NoFOUR:Boolean;
implementation

 uses mmsystem, U_comtest,Printers;
{$R *.DFM}


procedure TF_GloatRecord.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_GloatRecord.Timer1Timer(Sender: TObject);
begin
     Randomize;
     X:=X-1;
     if x<-140 then
     begin
     Image1.Canvas.Brush.Color:=clyellow;
     Rect1:=Rect(0,0,Image1.width,Image1.Height);
     Image1.Canvas.FillRect(Rect1);
      X:=Image1.Width;
      end;
   with Image1.Canvas do
    begin
        Font.Size:=36;
        Font.Style := [fsBold];
        TextOut(X,10,'设备部提醒您：注意保养您的打印机!');
   case Random(10) of
        1:Font.Color:=clRed ;
        2:Font.Color:=clRed ;
         end;
   end;
      end;

procedure TF_GloatRecord.FormShow(Sender: TObject);
begin
  Combobox2.SetFocus;
 
  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_GloatRecord.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_GloatRecord.ComboBox2Change(Sender: TObject);
  var
 i:integer;
begin
     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
       Combobox1.Text:=Table5['OPTER'];
       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'];
       Edit10.Text:=Table5['OUTTIME'];
       Edit6.Text:=Table5['TWET'];
       Edit7.Text:=Table5['LWET'];
       Edit9.Text:=Table5['WET'];
      end;
         end;
                   next;
               end;
                     end;
                     Table5.close;
                      end;





procedure TF_GloatRecord.FirstPrnClick(Sender: TObject);
begin
with printer do
begin
 BeginDoc;
 with canvas do
  begin
    Pen.color:=clBlack;    //字体颜色
   //Pen.Width:=2;
  Font.Charset := DEFAULT_CHARSET;
  Font.Color := clWindowText ;
   Font.Style := [];
 // Font.Name := 'MS Sans Serif';
    Font.Name := '宋体';
  Font.Height := 11;

 //====================第一联====================================//
     Font.Size:=18;
    TextOut(40,25,'60T地磅称重记录单');
  Font.Size:=11;
    TextOut(20,110,'送货单位:');
    TextOut(20,180,'收货单位:');
     TextOut(20,250,'货品名称:');
     TextOut(20,320,'  司称员:');

   Font.Size:=10;
   TextOut(153,110,Combobox3.Text);
   TextOut(153,180,Combobox4.Text);
   TextOut(153,250,Combobox5.Text);
   TextOut(153,320,ComboBox1.Text);
   Font.Size:=11;
  TextOut(25,380,'请保留好单据');
   MoveTo(10,440);  //横线
  LineTo(480,440);
 //************************//上半框
  Pen.Width:=4;   //框
    MoveTo(10,2);  //主横条
    LineTo(480,2);
    MoveTo(10,360);
    LineTo(480,360);
    MoveTo(10,2);   //主竖条
    LineTo(10,360);

    MoveTo(180,80);  //竖隔线
    moveTo(180,360);

    MoveTo(480,2);
    LineTo(480,360);


 Pen.Width:=2;      //横条
    moveTo(10,80);
    LineTo(480,80); //
    moveTo(10,150);
    LineTo(480,150);//
    moveTo(10,220);
    LineTo(480,220);   //
    moveTo(10,290);
    LineTo(480,290);//
   // moveTo(10,360);
   // LineTo(500,360); //
 //************************//上半框 x=10 y=440

   Font.Size:=12;
  TextOut(40,460,'    第一联： 客户留存');
  Pen.Width:=4;   //框
    MoveTo(10,500);  //主横条1
    LineTo(154,500);
    MoveTo(10,1130);
    LineTo(154,1130);

    MoveTo(10,500);   //主竖条1
    LineTo(10,1130);
    MoveTo(154,500);
    LineTo(154,1130);