u_xtgl_sdxx.~pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Xtgl_Sdxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons, Grids, DBGrids, Mask,
  DBCtrls, ActnList, XPStyleActnCtrls, ActnMan;

type
  TFrm_Xtgl_Sdxx = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Dtp_ks: TDateTimePicker;
    Dtp_js: TDateTimePicker;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBGrid1: TDBGrid;
    DBEdit3: TDBEdit;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    procedure Action3Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Xtgl_Sdxx: TFrm_Xtgl_Sdxx;

implementation
  uses u_data;
{$R *.dfm}

procedure TFrm_Xtgl_Sdxx.Action3Execute(Sender: TObject);
begin
  if dbedit1.Text='' then
    begin
     exit;
    end;
  dtp_ks.Time:=strtotime(trim(dbedit1.text));

//
end;

procedure TFrm_Xtgl_Sdxx.Action2Execute(Sender: TObject);
begin
//
end;

procedure TFrm_Xtgl_Sdxx.Action1Execute(Sender: TObject);
begin
//
end;

procedure TFrm_Xtgl_Sdxx.Action4Execute(Sender: TObject);
begin
 if dbedit2.Text='' then
    begin
     exit;
    end;
  dtp_js.Time:=strtotime(trim(dbedit2.text));
//
end;

procedure TFrm_Xtgl_Sdxx.Action5Execute(Sender: TObject);
begin
  dbedit1.Text:=timetostr(dtp_ks.Time);
//
end;

procedure TFrm_Xtgl_Sdxx.Action6Execute(Sender: TObject);
begin
  dbedit2.Text:=timetostr(dtp_js.Time);
//
end;

procedure TFrm_Xtgl_Sdxx.SpeedButton2Click(Sender: TObject);
begin
   close;
end;

procedure TFrm_Xtgl_Sdxx.SpeedButton1Click(Sender: TObject);
begin
   data.mr_Sdb.Edit;
   data.mr_Sdb.Post;
   application.MessageBox('修改成功','明日科技有限公司'); 
end;

end.