ucomponey.pas

这个程序软件很不错很不错的

unit ucomponey;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, StdCtrls, Mask, wwdbedit, DB;

type
  Tfrmcomponey = class(TfrmBase)
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    wwDBEdit1: TwwDBEdit;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit6: TwwDBEdit;
    wwDBEdit7: TwwDBEdit;
    wwDBEdit8: TwwDBEdit;
    wwDBEdit9: TwwDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    procedure disabledc;
    procedure enabledc;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcomponey: Tfrmcomponey;

implementation

uses Data;

{$R *.dfm}

procedure Tfrmcomponey.Button1Click(Sender: TObject);
begin
  inherited;
  if not datam.adoqcomponey.Active then exit;
  if datam.adoqcomponey.RecordCount > 0 then
    Datam.adoqcomponey.Edit
    else
    begin
      Datam.adoqcomponey.Append;
    end;
  enabledc;
  wwDBedit1.SetFocus; 
end;

procedure Tfrmcomponey.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmcomponey:=nil;
end;

procedure Tfrmcomponey.FormCreate(Sender: TObject);
begin
  inherited;
  try
    with dataM.adoqcomponey do
      begin
        close;
        sql.Clear;
        sql.Add('Select * from tcompany');
        open;
      end;
  except
    Abort;
  end;
  disabledc;
end;

procedure Tfrmcomponey.Button2Click(Sender: TObject);
begin
  inherited;
  if datam.adoqcomponey.State in [dsInsert,dsEdit] then
    Datam.adoqcomponey.Cancel;
  disabledc;
end;

procedure Tfrmcomponey.Button4Click(Sender: TObject);
begin
  inherited;
  if Datam.adoqcomponey.State in [dsInsert,dsEdit] then
    begin
      Datam.adoqcomponey.UpdateBatch(); 
    end;
  disabledc;
end;

procedure Tfrmcomponey.Button3Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmcomponey.disabledc;
var
  i:integer;
begin
  for i:=0 to self.ComponentCount - 1 do
    begin
      if (self.Components[i] is TwwDbEdit) then
        (self.Components[i] as TwwDbEdit).Enabled:=False;
    end;
  button1.Enabled:=True;
  Button2.Enabled:=False;
  Button4.Enabled:=False;
  Button3.Enabled:=True;
end;

procedure Tfrmcomponey.enabledc;
var
  i:integer;
begin
  for i:=0 to self.ComponentCount - 1 do
    begin
       if (self.Components[i] is TwwDbEdit) then
         (self.Components[i] as TwwDbEdit).Enabled:=True;
    end;
  button1.Enabled:=False;
  Button2.Enabled:=True;
  Button4.Enabled:=True;
  Button3.Enabled:=False;
end;

end.