sd_gl.pas

来自「网吧的基本操作都可以」· PAS 代码 · 共 67 行

unit sd_gl;

interface

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

type
  Tsdgl = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    xs1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    fz1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    xs2: TEdit;
    fz2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Ejg: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sdgl: Tsdgl;

implementation

uses D_M;

{$R *.dfm}

procedure Tsdgl.Button1Click(Sender: TObject);
begin
   DM.ADOTjggl.Append;
   DM.ADOTjggl.FieldByName('上机时间').AsString:=xs1.Text+':'+fz1.Text+':00';
   DM.ADOTjggl.FieldByName('下机时间').AsString:=xs2.Text+':'+fz2.Text+':00';
   DM.ADOTjggl.FieldByName('时段价格').AsFloat:=strtofloat(Ejg.Text);
   DM.ADOTjggl.Post;
end;

procedure Tsdgl.Button3Click(Sender: TObject);
begin
DM.ADOTjggl.Delete;
end;

procedure Tsdgl.Button4Click(Sender: TObject);
begin
close;
end;

end.