u_busnosellplan.pas

数据库基本信息添加

unit U_BusNoSellPlan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, DB, ADODB,StrUtils, GridsEh,
  DBGridEh, Menus;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    DateTimePicker6: TDateTimePicker;
    ADOQuery2: TADOQuery;
    DBGridEh1: TDBGridEh;
    ADOQuery3: TADOQuery;
    Button3: TButton;
    DataSource1: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    ADOQuery4: TADOQuery;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  bliID,sendTime:string;
  prtID:Integer;
  Mysql:string;
  TableName:string;
begin
    TableName := 'tBusNoSellPlan' +  MidStr(FormatDateTime('yyyy-mm-dd',Now),3,2) + MidStr(FormatDateTime('yyyy-mm-dd',Now),6,2);

    Mysql := 'insert into %s values (''%s'',''%s'',9001,%d,1,0,0,0,0)';
    Timer1.Enabled :=False;
    with Form1.ADOQuery1 do
      begin
         Active := False;
         SQL.Clear;
         SQL.Add('select * from tZDJS_INFO');
         Active := True;
      end;
     if ADOQuery1.RecordCount <=0 then
       begin
         Timer1.Enabled := True;
         Exit
       end;
     ADOQuery1.First;
     while not ADOQuery1.Eof do
      begin
        bliID:= ADOQuery1.fieldbyname('bliID').AsString;
        prtID:= ADOQuery1.fieldbyname('prtID').AsInteger;
        sendTime := ADOQuery1.fieldbyname('bpnSendTime').AsString;
        if sendTime = FormatDateTime('hh:mm',Now) then
        begin
          Mysql := Format(Mysql,[TableName,bliID,formatdatetime('yyyy-mm-dd',Now),prtID]);
          with ADOQuery2 do
            begin
              Active := False;
              SQL.Clear;
              SQL.Add(Mysql);
              ExecSQL;
            end;
        end;
        ADOQuery1.Next;
      end;

    Timer1.Enabled := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    Timer1.Enabled:= True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MySql:string;
begin
  MySql := 'insert into tZDJS_INFO values( ''%s'',''%s'',''%s'')';
  MySql := Format(MySql,[trim(Edit1.Text),trim(Edit2.Text),trim(FormatDateTime('hh:mm',DateTimePicker6.DateTime))]);
  try
  with ADOQuery2 do
   begin
     Active := False;
     SQL.Clear;
     SQL.Add(MySql);
     ExecSQL;
   end;
  Application.MessageBox('提交成功','提示',0);
  except
    raise;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DateTimePicker6.DateTime :=Now;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  MySql:string;
begin
  with ADOQuery3 do
   begin
     Active := False;
     SQL.Clear;
     SQL.Add('select A.*,B.prtName from tZDJS_INFO a join tPort b on a.prtID = b.prtID order by a.bpnSendTime');
     Active := True;
   end;
end;

procedure TForm1.N1Click(Sender: TObject);
var
  bliID:string;
  prtID:Integer;
  MySql:string;
begin
  bliID := ADOQuery3.fieldbyname('bliID').AsString;
  prtID := ADOQuery3.fieldbyname('prtID').AsInteger;
  MySql := 'delete from tZDJS_INFO where bliID = ''%s'' and prtID = %d';
  MySql := Format(MySql,[bliID,prtID]);
  with ADOQuery4 do
   begin
     Active := False;
     SQL.Clear;
     SQL.Add(MySql) ;
     ExecSQL;
   end;
  Application.MessageBox('取消成功','提示',0);
  ADOQuery3.Close;
  ADOQuery3.Open;


end;

end.