unit1.pas

ceshi de bu yao xiazai

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Menus, ExtCtrls, Buttons, ComCtrls,
  Grids, DBGrids,inifiles, IdUDPBase, IdUDPServer, IdComponent,
  IdTCPServer, IdThreadMgr, IdThreadMgrDefault, IdBaseComponent,
  IdAntiFreezeBase, IdAntiFreeze,Unit3;

type
  TForm1 = class(TForm)
    Database1: TDatabase;
    sfcqy: TQuery;
    MainMenu1: TMainMenu;
    DB1: TMenuItem;
    DB2: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Database2: TDatabase;
    BatchMove1: TBatchMove;
    Bevel1: TBevel;
    tiptable: TTable;
    Timer1: TTimer;
    BitBtn3: TBitBtn;
    tipqy: TQuery;
    sfcexeqy: TQuery;
    pb1: TProgressBar;
    N4: TMenuItem;
    BitBtn4: TBitBtn;
    BatchMove2: TBatchMove;
    sfctable: TTable;
    sfctiptable: TTable;
    tipsfctable: TTable;
    sfcupqy: TQuery;
    ListBox1: TListBox;
    procedure DB2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    function getbanbiefailnumber(cdate,shift,inorout:string):integer;
    procedure SaveToFile(text,Filename:string);
    function readfailinfo:string;
  end;

type
  TFailTime = record
    banbie:string;
    failnumber:integer;
    failtime:TDatetime;
    banbiedate:string;
    inorwork:string;
    shift:string;
  end;

var
  Form1: TForm1;
  //TMy_Thread:My_Thread;
  MailText,MailSubj:string;
  sender_name,rece_list,server_ip,server_port:string;
  Exetimestrs:TStringList;
  Exebanbie:string;     //