easygas_bottleedit.pas

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

unit EASYGAS_BOTTLEEDIT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EASY_GASMAIN, DB, StdCtrls, Mask, DBCtrlsEh, ExtCtrls, DBCtrls,
  Buttons, ADODB, ActnList;

type
  TButtleEditor = class(TForm)
    DBEditEh1: TDBEditEh;
    Label1: TLabel;
    DATAS: TDataSource;
    Label2: TLabel;
    DBEditEh2: TDBEditEh;
    Bevel1: TBevel;
    DBText1: TDBText;
    DBN: TDBNavigator;
    DBText2: TDBText;
    Label3: TLabel;
    Bevel2: TBevel;
    DBText3: TDBText;
    TT: TDBComboBoxEh;
    Label4: TLabel;
    Label5: TLabel;
    DBEditEh4: TDBEditEh;
    Label6: TLabel;
    DBEditEh5: TDBEditEh;
    Label7: TLabel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Label8: TLabel;
    Label9: TLabel;
    DBEditEh3: TDBEditEh;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Bevel5: TBevel;
    Label10: TLabel;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    Bevel6: TBevel;
    Label11: TLabel;
    DBMemo1: TDBMemo;
    Bevel7: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label12: TLabel;
    DBText4: TDBText;
    DBText5: TDBText;
    Label13: TLabel;
    BitBtn4: TBitBtn;
    ActionList1: TActionList;
    Find: TAction;
    BUTTLE: TADODataSet;
    Label14: TLabel;
    Bevel8: TBevel;
    DBText6: TDBText;
    procedure DBEditEh2EditButtons0Click(Sender: TObject;
      var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEditEh2Exit(Sender: TObject);
    procedure TTChange(Sender: TObject);
    procedure DATASDataChange(Sender: TObject; Field: TField);
    procedure FindExecute(Sender: TObject);
    procedure TickUpdate(Sender: TObject);
    procedure TTExit(Sender: TObject);
    procedure DBDateTimeEditEh1Exit(Sender: TObject);
    procedure DBEditEh1Exit(Sender: TObject);
    procedure DBDateTimeEditEh2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ButtleEditor: TButtleEditor;

implementation
uses EASYGAS_MANGTICK;
{$R *.dfm}

procedure TButtleEditor.DBEditEh2EditButtons0Click(Sender: TObject;
  var Handled: Boolean);
var area:Tarea;
begin
  Area:=SelArea;
  if trim(Area.AREA+area.SUB_AREA)<>'' then
  With Datas.DataSet do
  Begin
    Edit;
    Fieldbyname('区域').AsString:=area.AREA;
    Fieldbyname('地点').AsString:=area.SUB_AREA;
  end;
end;

procedure TButtleEditor.FormCreate(Sender: TObject);
begin
  With MAINFORM.BTT do
  Begin
    Open;
    if Not Isempty then
    Repeat
      TT.Items.Add(Fieldbyname('钢瓶类型').AsString);
      Next;
    Until EOF;
  end;
end;

procedure TButtleEditor.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then Postmessage(TWincontrol(Sender).Handle,WM_KEYDOWN,VK_TAB,0);
end;

procedure TButtleEditor.DBEditEh2Exit(Sender: TObject);
begin
  if DBEDITEH2.Field.IsNull then DBEDITEH2.SetFocus;
end;

procedure TButtleEditor.TTChange(Sender: TObject);
begin
  With DATAS.DataSet do
  Begin
  edit;
  Fieldbyname('灌装规格').asfloat:=GetCountFormName(TT.Text)
  end;
end;

procedure TButtleEditor.DATASDataChange(Sender: TObject; Field: TField);
begin
  With DATAS.DataSet do
  Begin
    if FieldByName('托管到期').AsDateTime<Now then Self.Color:=clFuchsia else Self.color:=clbtnFace;
    if FieldByName('年审到期').AsDateTime<Now then Self.Color:=clSkyBlue else Self.color:=clbtnFace;
  end;
end;

procedure TButtleEditor.FindExecute(Sender: TObject);
var SWhat:String;
begin
  SWhat:=InputBox('请输入查找内容[搜索顺序为瓶身号/编码/用户姓名]:','','');
  With DATAS.DataSet do
  Begin
    if Not locate('瓶身码',SWhat,[]) then
    if Not locate('编码',Strtointdef(SWhat,-1),[]) then
    if Not locate('客户姓名',SWhat,[]) then showmessage('输入的钢瓶无法找到!');
  end;
end;

procedure TButtleEditor.TickUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled:=Not (DATAS.DataSet.State in [dsEdit]);
end;

procedure TButtleEditor.TTExit(Sender: TObject);
begin
  if TT.Field.IsNull then TT.SetFocus;
end;

procedure TButtleEditor.DBDateTimeEditEh1Exit(Sender: TObject);
begin
  if DBDateTimeEditEH1.Field.IsNull then DBDateTimeEditEH1.SetFocus;
end;

procedure TButtleEditor.DBEditEh1Exit(Sender: TObject);
begin
  if trim(DBEditEh1.Text)='' then DBEditEh1.SetFocus;
end;

procedure TButtleEditor.DBDateTimeEditEh2Exit(Sender: TObject);
begin
  if DBDateTimeEditEh2.Field.AsDateTime<DATAS.DataSet.FieldByName('出厂时间').AsDateTime then
  DBDateTimeEditEh2.SetFocus;
end;

end.