editform.pas

我所收集的所有编程开发资料

unit EditForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIDBCtrls, StdCtrls, DBCtrls, Mask, ExtCtrls, SUIForm,fun;

type
  TEdForm = class(TForm)
    suiForm1: TsuiForm;
    suiDBEdit3: TsuiDBEdit;
    suiDBEdit4: TsuiDBEdit;
    suiDBMemo1: TsuiDBMemo;
    suiDBNavigator1: TsuiDBNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    suiDBComboBox1: TsuiDBComboBox;
    suiDBComboBox2: TsuiDBComboBox;
    procedure FormShow(Sender: TObject);
    procedure suiDBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    sc:Tsc;
  public
    { Public declarations }
  end;

var
  EdForm: TEdForm;

implementation
   uses datamdo;
{$R *.dfm}

procedure TEdForm.FormShow(Sender: TObject);
begin

  suidbcombobox1.DataSource:=dm.DataSource3;
  suidbcombobox2.DataSource:=dm.DataSource3;
  suidbedit3.DataSource:=dm.DataSource3;
  suidbedit4.DataSource:=dm.DataSource3;
  suidbmemo1.DataSource:=dm.DataSource3;
  suiDBNavigator1.DataSource:=dm.DataSource3;
end;

procedure TEdForm.suiDBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
    case Button of
    nbInsert :
      begin
        edform.suiDBEdit4.Text:=datetostr(now);
        sc.listcombox(suidbcombobox1);
        sc.listcombox(suidbcombobox2);
      end;
  end;

end;

procedure TEdForm.FormCreate(Sender: TObject);
begin
  sc:=Tsc.Create(self);
end;

end.