ufrmimpedit.pas

非长好的DELPHI办公系统 直接可以用

unit ufrmImpEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, DB, Buttons,uLogicType,
  Grids, DBGrids;

type
  TEditImpForm = class(TForm)
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    DataSource2: TDataSource;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    Label8: TLabel;
    DBComboBox2: TDBComboBox;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    Label11: TLabel;
    DBGrid1: TDBGrid;
    DBEdit9: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
    LogicType:TLogicType;

  public
    { Public declarations }
  end;

var
  EditImpForm: TEditImpForm;

implementation

uses uDM ;



{$R *.dfm}

procedure TEditImpForm.FormCreate(Sender: TObject);
begin
  LogicType:=TLogicType.create;
  DBComboBox2.Items.AddStrings(LogicType.GetTypeList);

end;

procedure TEditImpForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  LogicType.Free;
end;

procedure TEditImpForm.DBGrid1CellClick(Column: TColumn);
var
  i:integer;
begin
  for i:= 1 to 4 do
  begin
    if i=3 then
    begin
      DBComboBox2.Text := DM.adqGoods.Fields[i].AsString;
      TDBEdit(findComponent('DBEdit'+inttostr(i+4))).text :=DM.adqGoods.Fields[i+1].AsString
    end
    else
    if i<=2 then
    TDBEdit(findComponent('DBEdit'+inttostr(i+4))).text :=DM.adqGoods.Fields[i].AsString
    else
    TDBEdit(findComponent('DBEdit'+inttostr(i+4))).text :=DM.adqGoods.Fields[i+1].AsString
  end;
end;

end.