?? unitnew.pas
字號:
unit Unitnew;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, SUIForm, ComCtrls, SUIImagePanel,DB,ADODB,
SUITabControl,Unitcomm, SUIPageControl,jpeg, StdCtrls, SUIEdit,
SUIComboBox, SUIButton, ImgList, Grids, DBGrids, SUIDBCtrls, SUIMemo;
type
TForm10 = class(TForm)
suiForm1: TsuiForm;
suiPageControl1: TsuiPageControl;
suiPanel1: TsuiPanel;
suiImagePanel1: TsuiImagePanel;
book: TsuiDBGrid;
suiPageControl2: TsuiPageControl;
suiTabSheet1: TsuiTabSheet;
suiTabSheet2: TsuiTabSheet;
suiTabSheet3: TsuiTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
suiImagePanel2: TsuiImagePanel;
book_type: TsuiComboBox;
book_name: TsuiEdit;
book_price: TsuiEdit;
book_bh: TsuiEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
suiImagePanel3: TsuiImagePanel;
fl: TsuiComboBox;
mz: TsuiEdit;
jg: TsuiEdit;
bh: TsuiEdit;
suiButton1: TsuiButton;
suiButton2: TsuiButton;
bz: TsuiEdit;
Label11: TLabel;
Label12: TLabel;
suiImagePanel4: TsuiImagePanel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
beizhu: TsuiEdit;
lend_name: TsuiEdit;
lend_people: TsuiEdit;
time1: TDateTimePicker;
suiButton3: TsuiButton;
suiButton4: TsuiButton;
suiImagePanel5: TsuiImagePanel;
Label17: TLabel;
Label18: TLabel;
Label20: TLabel;
Label21: TLabel;
back_bh: TsuiEdit;
back_people: TsuiEdit;
suiButton5: TsuiButton;
suiButton6: TsuiButton;
suiButton7: TsuiButton;
jsm: TsuiEdit;
jq: TsuiEdit;
Label19: TLabel;
Label22: TLabel;
time2: TsuiEdit;
Label23: TLabel;
book_num: TsuiEdit;
book_place: TsuiEdit;
Label24: TLabel;
Label25: TLabel;
num: TsuiEdit;
lend_bz: TLabel;
Label26: TLabel;
back_num: TsuiEdit;
suiTabSheet4: TsuiTabSheet;
Label27: TLabel;
name: TsuiEdit;
suiImagePanel6: TsuiImagePanel;
find: TsuiDBGrid;
suiButton8: TsuiButton;
bb: TsuiComboBox;
suiTabSheet5: TsuiTabSheet;
Label28: TLabel;
suiImagePanel7: TsuiImagePanel;
suiButton9: TsuiButton;
remeber: TsuiMemo;
suiButton10: TsuiButton;
procedure suiButton2Click(Sender: TObject);
procedure suiButton1Click(Sender: TObject);
procedure suiButton4Click(Sender: TObject);
procedure suiButton3Click(Sender: TObject);
procedure lend_nameChange(Sender: TObject);
procedure suiButton6Click(Sender: TObject);
procedure suiButton5Click(Sender: TObject);
procedure suiButton7Click(Sender: TObject);
procedure time2Change(Sender: TObject);
procedure suiImagePanel6Click(Sender: TObject);
procedure suiButton8Click(Sender: TObject);
procedure suiButton9Click(Sender: TObject);
procedure suiButton10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
{$R *.dfm}
procedure TForm10.suiButton2Click(Sender: TObject);
begin
close;
end;
procedure TForm10.suiButton1Click(Sender: TObject);
var
BQuery:TADOQuery;
myDataset:TADODataset;
myDatasource:TDatasource;
begin
try
if fl.Text='' then
showmessage('新書類型為空，不能入館!')
else if mz.Text='' then
showmessage('書名為空，不能入館!')
else if jg.Text='' then
showmessage('書價為空，不能入館!')
else if bh.Text='' then
showmessage('內部編號沒有不能入館!')
else if book_num.Text='' then
showmessage('數量為空，不能入館!')
else if book_place.Text='' then
showmessage('出版商為空，不能入館!')
else
begin
BQuery:=TADOQuery.Create(self);
BQuery.Connection:=ADOConn;
BQuery.SQL.Add('insert book(book_type,book_bh,book_name,book_price,book_bz,book_num,book_place,book_stutas) values (?,?,?,?,?,?,?,'''+'在館'+''')');
BQuery.Parameters[0].Value:=fl.Text;
BQuery.Parameters[1].Value:=bh.Text;
BQuery.Parameters[2].Value:=mz.Text;
BQuery.Parameters[3].Value:=jg.Text;
BQuery.Parameters[4].Value:=bz.Text;
BQuery.Parameters[5].Value:=book_num.Text;
BQuery.Parameters[6].Value:=book_place.Text;
BQuery.ExecSQL;
BQuery.Free;
showmessage('恭喜您,新書信息錄入成功!');
myDataset:=TADODataset.Create(self);
myDataset.Connection:=ADOConn;
myDatasource:=TDatasource.Create(self);
myDataset.Connection:=ADOConn;
myDatasource.DataSet:=myDataset;
book.DataSource:=myDatasource;
myDataset.CommandText:='select book_bh,book_type,book_name,book_price,book_bz,book_num,book_place,book_stutas from book';
mydataset.Active:=true;
end;
except
showmessage('您錄入的數據格式有誤，請確認后再錄入!');
end;
end;
procedure TForm10.suiButton4Click(Sender: TObject);
begin
close;
end;
procedure TForm10.suiButton3Click(Sender: TObject);
var
LQuery:TADOQuery;
NDataset:TADODataset;
n1,n2,n:integer;
begin
try
if beizhu.Text='' then
showmessage('借閱編號不能為空!')
else if lend_people.Text='' then
showmessage('借閱人不能為空!')
else
begin
LQuery:=TADOQuery.Create(self);
LQuery.Connection:=ADOConn;
LQuery.SQL.Add('insert lend(lend_time,lend_people,lend_bh,lend_num,lend_bz) values (?,?,?,?,?)');
LQuery.Parameters[2].Value:=beizhu.Text;
LQuery.Parameters[1].Value:=lend_people.Text;
LQuery.Parameters[0].Value:=time1.DateTime;
LQuery.Parameters[3].Value:=num.Text;
LQuery.Parameters[4].Value:=bb.Text;
LQuery.ExecSQL;
LQuery.SQL.Clear;
{Dataset:=TADODataset.Create(self);
NDataset.Connection:=ADOConn;
NDataset.CommandText:='select book_num from book where book_bh='''+beizhu.Text+'''';
NDataset.Active:=true;
n1:=NDataset.Fields[0].AsInteger;
n2:=strtoint(num.Text);
n:=n1-n2;}
LQuery.SQL.Add('update book set book_stutas='''+'借閱'+''' where book_bh='''+beizhu.Text+'''');
LQuery.ExecSQL;
LQuery.Free;
showmessage('恭喜您，借閱成功!');
end;
except
showmessage('您錄入的數據格式有誤，請確認后再錄入!');
end;
end;
procedure TForm10.lend_nameChange(Sender: TObject);
var
myDataset:TADODAtaset;
begin
myDataset:=TADODAtaset.Create(self);
myDataset.Connection:=ADOCOnn;
myDAtaset.CommandText:='select book_name from book where book_bh='''+beizhu.Text+'''';
myDataset.Active:=true;
lend_name.Text:=myDataset.Fields[0].AsString;
myDataset.Close;
end;
procedure TForm10.suiButton6Click(Sender: TObject);
begin
close;
end;
procedure TForm10.suiButton5Click(Sender: TObject);
var
myQuery:TADOQuery;
NDataset:TADODataset;
n1,n2,n:integer;
begin
{n2:=strtoint(back_num.Text);
NDataset:=TADODataset.Create(self);
NDataset.Connection:=ADOConn;
NDataset.CommandText:='select book_num from book where book_bh='''+back_bh.Text+'''';
NDataset.Active:=true;
n1:=NDataset.Fields[0].AsInteger;
n:=n1+n2; }
myQuery:=TADOQuery.Create(self);
myQuery.Connection:=ADOCOnn;
myQuery.SQL.Add('update lend set back_time='''+time2.Text+''' and lend_num='''+'0'+''' and lend_bz='''+'在館'+''' where book_bh='''+back_bh.Text+'''');
myQuery.ExecSQL;
showmessage('謝謝合作!');
myQuery.SQL.Clear;
myQuery.SQL.Add('update book set book_stutas='''+'在館'+''' where book_bh='''+back_bh.Text+'''');
myQuery.ExecSQL;
myQuery.Free;
end;
procedure TForm10.suiButton7Click(Sender: TObject);
var
askDAtaset:TADODataset;
begin
askDataset:=TADODAtaset.Create(self);
askDAtaset.Connection:=ADOConn;
askdataset.CommandText:='select book_name,lend_time,lend_num from lend,book where book_bh='''+back_bh.Text+''' and lend_bh='''+back_bh.Text+''' and lend_people='''+back_people.Text+'''';
askDataset.Active:=true;
jsm.Text:=askDataset.Fields[0].AsString;
jq.Text:=askDataset.Fields[1].AsString;
back_num.Text:=askDataset.Fields[2].AsString;
end;
procedure TForm10.time2Change(Sender: TObject);
begin
time2.Text:=FormatDAtetime('YYYY-MM-DD',Now);
end;
procedure TForm10.suiImagePanel6Click(Sender: TObject);
var
findDataset:TADODataset;
findDatasource:TDatasource;
begin
findDataset:=TADODAtaset.Create(self);
findDataset.Connection:=ADOConn;
findDatasource:=TDatasource.Create(self);
findDatasource.DataSet:=findDAtaset;
find.DataSource:=findDatasource;
findDAtaset.CommandText:='select book_bh,book_name,book_stutas from book where book_name like ''%'+name.Text+'%''';
findDataset.Active:=true;
end;
procedure TForm10.suiButton8Click(Sender: TObject);
begin
close;
end;
procedure TForm10.suiButton9Click(Sender: TObject);
begin
close;
end;
procedure TForm10.suiButton10Click(Sender: TObject);
var
rQuery:TADOQuery;
begin
rQuery:=TADOQuery.Create(self);
rQuery.Connection:=ADOCOnn;
rQuery.SQL.Add('insert remeber(r_bw) values ('''+remeber.Text+''')');
rQuery.ExecSQL;
rQuery.Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -