units.pas

一个简单的教材管理系统,可以提供给有这方面软件需求的人

unit units;

interface

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

type
  TUnitForm = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure RadioButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
    procedure savetotable;
    procedure loadfromtable;
  end;

var
  UnitForm: TUnitForm;
  new_id:boolean;
implementation
  uses main;
{$R *.dfm}

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

procedure TUnitForm.FormActivate(Sender: TObject);
begin
    dbgrid1.DataSource:=datasource1;
    datasource1.DataSet:=adotable1;
    adotable1.Connection:=adoconnection1;
    adotable1.TableName:='单位信息表';
    adotable1.active:=true;
    dbgrid1.ReadOnly:=true;
    radiobutton2.Checked:=true;
    if not adotable1.Eof then
        loadfromtable
    else
        radiobutton3.Enabled:=false;
    new_id:=false;
end;
procedure TUnitForm.initiate;
begin
    edit1.text:='';
    edit2.text:='';
    edit3.text:='';
end;
procedure TUnitForm.savetotable;
begin
    adotable1.FieldByName('单位名').asstring:=edit1.text;
    adotable1.FieldByName('负责人').asstring:=edit2.text;
    adotable1.FieldByName('联系电话').AsString:=edit3.text;
    adotable1.FieldByName('操作员').asstring:=username;
    adotable1.FieldByName('最后修改时间').AsDateTime:=date();
end;
procedure TUnitForm.loadfromtable;
begin
    edit1.text:=adotable1.FieldByName('单位名').asstring;
    edit2.text:=adotable1.FieldByName('负责人').asstring;
    edit3.text:=adotable1.FieldByName('联系电话').AsString;
end;
procedure TUnitForm.ADOTable1AfterScroll(DataSet: TDataSet);
begin
    if not radiobutton1.Checked then
        loadfromtable;
end;

procedure TUnitForm.RadioButton1Click(Sender: TObject);
begin
      initiate;
      edit1.SetFocus;
end;

procedure TUnitForm.BitBtn1Click(Sender: TObject);
begin
      if radiobutton1.Checked then
      begin
          adotable1.Append;
          adotable1.edit;
          savetotable;
          adotable1.FieldByName('书费').AsCurrency:=0;
          adotable1.post;
      end
      else if radiobutton2.Checked then
      begin
          adotable1.edit;
          savetotable;
          adotable1.Post;
      end
      else
      begin
          adotable1.Delete;
          adotable1.first;
      end;
      if adotable1.eof then
          radiobutton3.Enabled:=false
      else
          radiobutton3.Enabled:=true;
      if radiobutton1.checked then
          initiate
      else
          loadfromtable;
end;

procedure TUnitForm.RadioButton2Click(Sender: TObject);
begin
    loadfromtable;
end;

end.