changetime.pas

来自「通过串口发送多条短信的群发软件」· PAS 代码 · 共 61 行

unit changetime;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons, ADODB;

type
  TchangetimeForm = class(TForm)
    GroupBox1: TGroupBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changetimeForm: TchangetimeForm;

implementation

uses main, other;

{$R *.dfm}

procedure TchangetimeForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TchangetimeForm.BitBtn1Click(Sender: TObject);
begin
  // 修改表client_info中的客户数据
  try
    taskadoquery.RecNo:=mainForm.taskListView.Selected.Index+1;
    taskadoquery.Edit;
    taskadoquery.Fields.Fields[3].AsString:=datetostr(DateTimePicker1.Date)+' '
    +timetostr(DateTimePicker2.Time);
    taskadoquery.Post;
  except
    application.MessageBox('发生错误！','提示',MB_OK);
    exit;
  end;

  //修改客户列表中的客户信息
  mainForm.taskListView.Selected.SubItems.Strings[1]:=
  datetostr(DateTimePicker1.Date)+' '+timetostr(DateTimePicker2.Time);

  close;
end;

end.