easygas_buttlelist.pas

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

unit EASYGAS_BUTTLELIST;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EASY_GASMAIN, Grids, DBGridEh, DB, ADODB, StdCtrls, ExtCtrls,
  ActnList, ComCtrls, ToolWin, DBActns;

type
  TBUTTLELIST = class(TForm)
    DBG: TDBGridEh;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ActionList1: TActionList;
    Panel1: TPanel;
    Edit1: TEdit;
    MAIN: TADODataSet;
    MAINS: TDataSource;
    CreateTick: TAction;
    ToolButton1: TToolButton;
    DELS: TADODataSet;
    TicksInfo: TAction;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    DelTick: TAction;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CreateTickExecute(Sender: TObject);
    procedure DBGTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGDblClick(Sender: TObject);
    procedure TicksInfoExecute(Sender: TObject);
    procedure DELSBeforeDelete(DataSet: TDataSet);
    procedure DelTickExecute(Sender: TObject);
    procedure DelTickUpdate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BUTTLELIST: TBUTTLELIST;

implementation

{$R *.dfm}

procedure TBUTTLELIST.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=vk_return then
  With MAIN do
  Begin
    if Not Locate('瓶身码',Edit1.text,[]) then
    if Not Locate('编码',Strtointdef(Edit1.text,0),[]) then
    if Not Locate('客户姓名',Edit1.text,[]) then showmessage('没有找到!');
  end;
end;

procedure TBUTTLELIST.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TBUTTLELIST.CreateTickExecute(Sender: TObject);
begin
  With MAIN do
  Begin
    if (MAIN.FieldByName('托管到期').AsDateTime<=Now+30)
    or (MAIN.FieldByName('年审到期').AsDateTime<=Now+365) then
    Begin
      Showmessage('托管到期:'+MAIN.FieldByName('托管到期').text+#13+'年审到期:'+MAIN.FieldByName('年审到期').text);
    end;
    CTick(MAIN.FieldByName('编码').AsInteger);
    refresh;
  end;
end;

procedure TBUTTLELIST.DBGTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  GRIDTitleClick(DBG,ACol,Column);
end;

procedure TBUTTLELIST.DBGDblClick(Sender: TObject);
begin
  CreateTick.Execute;
end;

procedure TBUTTLELIST.TicksInfoExecute(Sender: TObject);
begin
  With TAction(Sender) do
  Begin
    Checked:=Not Checked;
    if Checked then
    Begin
      DELS.Close;
      DELS.CommandText:='select * from GAS_MANAGE WHERE 钢瓶编码 = '+#39+MAIN.fieldbyname('编码').Text+#39;
      DELS.Open;
      MAINS.DataSet:=DELS;
    end else
    Begin
      DELS.Close;
      MAINS.DataSet:=MAIN;
    end;
  end;
end;

procedure TBUTTLELIST.DELSBeforeDelete(DataSet: TDataSet);
begin
  With Dataset do
  Begin
    MAIN.edit;
    if fieldbyname('归属').AsString='托管' then
    Begin
    MAIN.fieldbyname('托管到期').asdatetime:=MAIN.fieldbyname('托管到期').asdatetime-Fieldbyname('有效天数').AsInteger;
    end else
    if fieldbyname('归属').AsString='年审' then
    Begin
    MAIN.fieldbyname('年审到期').asdatetime:=MAIN.fieldbyname('年审到期').asdatetime-Fieldbyname('有效天数').AsInteger;
    end;
    MAIN.Post;
    MAIN.Refresh;
  end;
end;

procedure TBUTTLELIST.DelTickExecute(Sender: TObject);
begin
  if messageBox(Handle,'删除后无法恢复,是否继续?','警告',MB_YESNO)=ID_YES then MAINS.DataSet.Delete;
end;

procedure TBUTTLELIST.DelTickUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled:=(MAINS.DataSet=DELS) and (Not MAINS.DataSet.IsEmpty);
end;

end.