inputinfo.pas

来自「我的信息管理中心程序（源码）适合初级」· PAS 代码 · 共 105 行

unit inputinfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, StdCtrls, Mask, bsSkinBoxCtrls, bsdbctrls,
  bsSkinCtrls;

type
  Tfrminputinfo = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsedit: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bssave: TbsSkinButton;
    bscancel: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBDateEdit1: TbsSkinDBDateEdit;
    bsSkinDBDateEdit2: TbsSkinDBDateEdit;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinScrollBar1: TbsSkinScrollBar;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bseditClick(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bssaveClick(Sender: TObject);
    procedure bscancelClick(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frminputinfo: Tfrminputinfo;

implementation

uses main, Unit1;

{$R *.dfm}

procedure Tfrminputinfo.bsSkinButton1Click(Sender: TObject);
begin
frmmain.AQMYINFO.Append;
bssave.Enabled:=true;
bscancel.Enabled:=true;
bsedit.Enabled:=false;
end;

procedure Tfrminputinfo.bseditClick(Sender: TObject);
begin
frmmain.AQMYINFO.Edit ;
bssave.Enabled:=true;
bscancel.Enabled:=true;
bsedit.Enabled:=false;
end;

procedure Tfrminputinfo.bsSkinButton3Click(Sender: TObject);
begin
IF FRMLOGO.bsSkinMessage1.MessageDlg('确认删除吗?',mtInformation,[MBYES,MBNO],0)=MRYES THEN
BEGIN
frmmain.AQMYINFO.Delete ;
END;
end;

procedure Tfrminputinfo.bssaveClick(Sender: TObject);
begin
frmmain.AQMYINFO.FieldByName('sdate').Asstring:=datetostr(BSSKINDBDATEEDIT1.Date);
FRMMAIN.AQMYINFO.FieldByName('TXDATE').AsString:=DATETOSTR(BSSKINDBDATEEDIT2.Date);
if frmmain.AQMYINFO.FieldByName('sdate').Asstring='' then
begin
FRMLOGO.bsSkinMessage1.MessageDlg('请选择提醒日期',mtError,[mbok],0);
exit;
end;

frmmain.AQMYINFO.Post;
bssave.Enabled:=false;
bscancel.Enabled:=false;
bsedit.Enabled:=true;
end;

procedure Tfrminputinfo.bscancelClick(Sender: TObject);
begin
frmmain.AQMYINFO.Cancel;
bssave.Enabled:=false;
bscancel.Enabled:=false;
bsedit.Enabled:=true;
end;

procedure Tfrminputinfo.bsSkinButton6Click(Sender: TObject);
begin
close;
end;

end.