unit18.pas

来自「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」· PAS 代码 · 共 73 行

unit Unit18;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ComCtrls, DBCtrls, DB, DBTables;

type
  TFormmemo = class(TForm)
    DBMemo1: TDBMemo;
    MonthCalendar1: TMonthCalendar;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    SpeedButton1: TSpeedButton;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MonthCalendar1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure DataSource1UpdateData(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formmemo: TFormmemo;

implementation

{$R *.dfm}

procedure TFormmemo.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TFormmemo.FormCreate(Sender: TObject);
begin

radiobutton1.Checked:=true;
table1.TableName:='jin.db';
table1.Active:=true;
dbmemo1.DataField:='信息备注';
end;

procedure TFormmemo.MonthCalendar1Click(Sender: TObject);
begin
datasource1.OnDataChange :=nil;
table1.edit;
if table1.Locate('信息备注',monthcalendar1.date,[loCaseInsensitive]) then
else
messagedlg('没有此日期的信息备注！',mtinformation,[mbok],0);
datasource1.OnDataChange :=formmemo.DataSource1datachange;
monthcalendar1.Date:=table1.fieldbyname('信息备注').value;
end;

procedure TFormmemo.DataSource1DataChange(Sender: TObject; Field: TField);
begin
monthcalendar1.Date:=table1.fieldbyname('信息备注').value;
end;

procedure TFormmemo.DataSource1UpdateData(Sender: TObject);
begin
monthcalendar1.Date:=table1.fieldbyname('信息备注').value;
end;

end.