modify.pas

好多上载非界面和非WEB源码

unit modify;

interface

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

type
  Tmodifyfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    ComboBox1: TComboBox;
    Table1: TTable;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo1: TDBMemo;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modifyfrm: Tmodifyfrm;

implementation
uses global;
{$R *.dfm}

procedure Tmodifyfrm.FormShow(Sender: TObject);
begin
table1.DatabaseName:=dbname;
table1.TableName:='book_info.db';
table1.Open;
combobox1.Items.Clear;
while not table1.Eof do
begin
combobox1.Items.Add(table1.fieldbyname('图书编号').AsString);
table1.Next;
end;
table1.First;
combobox1.ItemIndex:=0;
end;

procedure Tmodifyfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.Close;
end;

procedure Tmodifyfrm.BitBtn1Click(Sender: TObject);
begin
table1.Close;
close;
end;

procedure Tmodifyfrm.ComboBox1Change(Sender: TObject);
begin
with table1 do
begin
setkey;
fieldbyname('图书编号').AsString:=combobox1.Items[combobox1.itemindex];
gotokey;
end;
end;

end.