addinfo.pas

我的信息管理中心程序（源码）适合初级

unit ADDINFO;

interface

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

type
  TFRMADDINFO = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bssave: TbsSkinButton;
    bscancel: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bssaveClick(Sender: TObject);
    procedure bscancelClick(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMADDINFO: TFRMADDINFO;

implementation

uses main, Unit1;

{$R *.dfm}

procedure TFRMADDINFO.bsSkinButton1Click(Sender: TObject);
begin
with frmmain.AQINFOTYPE do
begin
append;
bssave.Enabled:=true;
bscancel.Enabled:=true;
bsskinbutton2.Enabled:=false;
end;
end;

procedure TFRMADDINFO.bsSkinButton2Click(Sender: TObject);
begin
 with frmmain.AQINFOTYPE do
begin
edit;
bssave.Enabled:=true;
bscancel.Enabled:=true;
bsskinbutton2.Enabled:=false;
end;
end;

procedure TFRMADDINFO.bsSkinButton3Click(Sender: TObject);
begin
with frmmain.AQINFOTYPE do
begin
if FRMLOGO.bsSkinMessage1.MessageDlg('确认删除吗?',mtInformation,[mbyes,mbno],0)=mryes then
begin
if    fieldbyname('id').AsInteger=1 then
   begin
     FRMLOGO.bsSkinMessage1.MessageDlg('确认删除吗?',mterror,[mbok],0);
     exit;
   end;
end;
delete;
end;
end;

procedure TFRMADDINFO.bssaveClick(Sender: TObject);
begin
with frmmain.AQINFOTYPE do
begin
post;
bssave.Enabled:=false;
bscancel.Enabled:=false;
bsskinbutton2.Enabled:=true;
end;
end;

procedure TFRMADDINFO.bscancelClick(Sender: TObject);
begin
with frmmain.AQINFOTYPE do
begin
cancel;
bssave.Enabled:=false;
bscancel.Enabled:=false;
bsskinbutton2.Enabled:=true;
end;
end;

procedure TFRMADDINFO.bsSkinButton6Click(Sender: TObject);
begin
maketree(frmmain.AQINFOTYPE,'infotype',frmmain.bsSkinTreeView1);
close;
end;

procedure TFRMADDINFO.FormShow(Sender: TObject);
begin
if frmmain.AQINFOTYPE.FieldByName('id').AsInteger=1 then
begin
bsskinbutton2.Enabled:=false;
end;
frmmain.AQTYPELIST.Open;
end;

end.