【delphi开源代码栏目提醒】:本文主要为网学会员提供BookDataModule.pas,希望对需要BookDataModule.pas网友有所帮助,学习一下!
unit BookDataModule;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TMainDataModule = class(TDataModule)
AdoConnection: TADOConnection;
AccountTable: TADOTable;
BookLendTable: TADOTable;
BookTable: TADOTable;
UserTable: TADOTable;
UserClassTable: TADOTable;
AccountDataSource: TDataSource;
BookLendDataSource: TDataSource;
BookDataSource: TDataSource;
UserDataSource: TDataSource;
UserClassSource: TDataSource;
UserClassTableClassName: TStringField;
UserClassTabledeposit: TFloatField;
UserClassTableRents: TFloatField;
UserClassTableTimeLimity: TIntegerField;
UserClassTablenote: TMemoField;
UserClassTableClassID: TStringField;
UserClassTableMaxNumber: TIntegerField;
UserClassTablePeriod: TIntegerField;
UserTableUserCode: TStringField;
UserTableUserName: TStringField;
UserTableRegisterDate: TDateTimeField;
UserTableTelNo: TStringField;
UserTableAddress: TStringField;
UserTableNote: TMemoField;
UserTableuserclass: TStringField;
BookTableBookCode: TStringField;
BookTableBookSNNo: TStringField;
BookTableBookName: TStringField;
BookTableAuthor: TStringField;
BookTablePublisher: TStringField;
BookTableInDate: TDateTimeField;
BookTablePrice: TFloatField;
BookTablePosition: TStringField;
BookTableState: TStringField;
BookLendTableUsercode: TStringField;
BookLendTableBorrowDate: TDateTimeField;
BookLendTableReturnDate: TDateTimeField;
BookLendTablePunish: TFloatField;
BookLendTableFinalRent: TFloatField;
BookLendTableBookCode: TStringField;
BookLendTableEndDate: TDateTimeField;
AccountTableAccountName: TStringField;
AccountTableAccountPassword: TStringField;
AccountTableAccountRight: TStringField;
UserTableCurrentNo: TIntegerField;
delLendTable: TADOTable;
delLendTableusercode: TStringField;
delLendTableborrowDate: TDateTimeField;
delLendTablereturnDate: TDateTimeField;
delLendTablepunish: TFloatField;
delLendTablefinalRent: TFloatField;
delLendTablebookcode: TStringField;
delLendTableenddate: TDateTimeField;
delLendTablerecno: TAutoIncField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainDataModule: TMainDataModule;
implementation
{$R *.dfm}
end.
上一篇:
bookbrower.pas
下一篇:
电力调度管理中信息技术论文