worker_inouteditm.pas

来自「用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABAS」· PAS 代码 · 共 81 行

unit Worker_InOutEditM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls,Worker_InOutEdit,
  wwSpeedButton, wwDBNavigator, wwclearpanel, wwdbdatetimepicker, Mask,
  DBCtrls, wwdblook, DB,DataMod, ADODB;

type
  TfWorker_InOutEditM = class(TfBaseChildForm)
    DataSource1: TDataSource;
    wwDBLookupCombo1: TwwDBLookupCombo;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Bevel2: TBevel;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fWorker_InOutEditM: TfWorker_InOutEditM;

implementation

{$R *.dfm}

procedure TfWorker_InOutEditM.Button1Click(Sender: TObject);
begin
  inherited;
  DataSource1.DataSet.Append;
  Self.wwDBLookupCombo1.SetFocus ;
end;

procedure TfWorker_InOutEditM.DataSource1DataChange(Sender: TObject;
  Field: TField);
var
   isEdit:Boolean;
begin
   IsEdit:=DataSource1.State in [dsEdit,dsInsert];
   Button1.Enabled:=not IsEdit;
   Button2.Enabled:=not IsEdit ;
   Button3.Enabled:=not IsEdit ;
   Button4.Enabled:=IsEdit;
   Button5.Enabled:=IsEdit;
end;

procedure TfWorker_InOutEditM.Button2Click(Sender: TObject);
begin
  inherited;
  DataSource1.DataSet.Edit;
  Self.wwDBLookupCombo1.SetFocus ;
end;

procedure TfWorker_InOutEditM.Button3Click(Sender: TObject);
begin
    if DataSource1.DataSet.RecordCount>0 then begin
       if Application.MessageBox('眤痷