uedittable.pas

物流行业

unit Uedittable;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, Grids, DBGrids;

type
  TFmedittable = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    Table1Drq: TStringField;
    Table1Ccm: TStringField;
    Table1Chc: TStringField;
    Table1Cxh: TStringField;
    Table1Ccc: TStringField;
    Table1Cxx: TStringField;
    Table1Nxz: TFloatField;
    Table1Ccxr: TStringField;
    Table1Cxw: TStringField;
    Table1Chm: TStringField;
    Table1Cysfs: TStringField;
    Table1Czhg: TStringField;
    Table1Lyc: TBooleanField;
    Table1Mbz: TStringField;
    Table2Drq: TStringField;
    Table2Chc: TStringField;
    Table2Ccm: TStringField;
    Table2Cxh: TStringField;
    Table2Ccc: TStringField;
    Table2Cxx: TStringField;
    Table2Nxz: TFloatField;
    Table2Ccxr: TStringField;
    Table2Chm: TStringField;
    Table2Cysfs: TStringField;
    Table2Cmdg: TStringField;
    Table2Lyc: TBooleanField;
    Table2Mbz: TStringField;
    Table3Drq: TStringField;
    Table3Cch: TStringField;
    Table3Ctdh: TStringField;
    Table3Cdl: TStringField;
    Table3Cxh: TStringField;
    Table3Ccc: TStringField;
    Table3Cxx: TStringField;
    Table3Njs: TFloatField;
    Table3Nzl: TFloatField;
    Table3Chm: TStringField;
    Table3Ccxr: TStringField;
    Table3Cxw: TStringField;
    Table3Lwc: TBooleanField;
    Table3Mbz: TStringField;
    Table4Drq: TStringField;
    Table4Cch: TStringField;
    Table4Ctdh: TStringField;
    Table4Cdl: TStringField;
    Table4Cxh: TStringField;
    Table4Ccc: TStringField;
    Table4Cxx: TStringField;
    Table4Njs: TFloatField;
    Table4Nzl: TFloatField;
    Table4Chm: TStringField;
    Table4Ccxr: TStringField;
    Table4Cxw: TStringField;
    Table4Lwz: TBooleanField;
    Table4Mbz: TStringField;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Table1Lzt: TStringField;
    Table2Lzt: TStringField;
    Table3Lzt: TStringField;
    Table4Lzt: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmedittable: TFmedittable;

implementation

{$R *.dfm}

procedure TFmedittable.BitBtn1Click(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.RecordCount>0 then
dbgrid1.DataSource.DataSet.Delete;
end;

procedure TFmedittable.BitBtn2Click(Sender: TObject);
begin
fmedittable.Close;
end;

procedure TFmedittable.BitBtn3Click(Sender: TObject);
begin
datasource1.DataSet:=table1;
table1.Active:=true;
table1.Edit;
groupbox2.Caption:=bitbtn3.Caption;
end;

procedure TFmedittable.BitBtn4Click(Sender: TObject);
begin
datasource1.DataSet:=table2;
table2.Active:=true;
table2.Edit;
groupbox2.Caption:=bitbtn4.Caption;
end;

procedure TFmedittable.BitBtn5Click(Sender: TObject);
begin
datasource1.DataSet:=table3;
table3.Active:=true;
table3.Edit;
groupbox2.Caption:=bitbtn5.Caption;
end;

procedure TFmedittable.BitBtn6Click(Sender: TObject);
begin
datasource1.DataSet:=table4;
table4.Active:=true;
table4.Edit;
groupbox2.Caption:=bitbtn6.Caption;
end;

procedure TFmedittable.BitBtn7Click(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.Edit;
dbgrid1.DataSource.DataSet.Post;
end;

procedure TFmedittable.FormActivate(Sender: TObject);
begin
bitbtn3.Click;
end;

procedure TFmedittable.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
table1.Close;
table2.Close;
table3.Close;
table4.Close;

end;

end.