?? unit7.pas
字號:
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, DB, ADODB;
type
TForm7 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Button3: TButton;
Button4: TButton;
ADODataSet1: TADODataSet;
Label6: TLabel;
Edit6: TEdit;
Button5: TButton;
Label7: TLabel;
Edit7: TEdit;
Button6: TButton;
Label8: TLabel;
Edit8: TEdit;
Button7: TButton;
Edit1: TEdit;
ADODataSet2: TADODataSet;
ADOCommand1: TADOCommand;
Label9: TLabel;
Edit9: TEdit;
Label10: TLabel;
ComboBox1: TComboBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
ADODataSet3: TADODataSet;
ADODataSet4: TADODataSet;
Edit10: TEdit;
Label11: TLabel;
Label12: TLabel;
Edit11: TEdit;
Label13: TLabel;
Edit12: TEdit;
Label14: TLabel;
Edit13: TEdit;
Label15: TLabel;
Edit14: TEdit;
Button9: TButton;
Button8: TButton;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Button10: TButton;
Button11: TButton;
Label21: TLabel;
Edit20: TEdit;
Label22: TLabel;
Edit21: TEdit;
ADODataSet5: TADODataSet;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Edit10Change(Sender: TObject);
procedure TabSheet1Exit(Sender: TObject);
procedure TabSheet2Exit(Sender: TObject);
procedure TabSheet3Exit(Sender: TObject);
procedure Edit15Change(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
ZhuTai,Zhutai_1,Ru_riqi,GJbumen:string;
command_exe:boolean;
implementation
{$R *.dfm}
uses unit1;
procedure TForm7.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form_show:=False;
Action:=caFree;
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
Form_show:=True;
button2.Enabled:=False;
button3.Enabled:=False;
button4.Enabled:=False;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
Adodataset1.Active:=False;
Adodataset1.CommandText:='select * from shuku where book_id='''+Trim(edit1.Text)+'''';
Adodataset1.Active:=True;
if Adodataset1.RecordCount>0 then
begin
button4.Enabled:=True;
edit2.Text:=Adodataset1.Fields[3].AsString;
edit3.Text:=Adodataset1.Fields[11].AsString;
edit4.Text:=Adodataset1.Fields[9].AsString;
zhutai_1:=Adodataset1.Fields[8].AsString;
button4.Enabled:=True;
//逾期部分沒有做，僅僅不能顯示
//if Adodataset1.Fields[9].AsString<>'長期' then
// begin
//如果不是長期借閱，則要計算逾期天數
// a:=date()-strtodate(Adodataset1.Fields[9].AsString);
end
else
messagedlg('查無此書！',mtwarning,[mbok],0)
end
else
messagedlg('圖書編號不能為空！',mtwarning,[mbok],0)
end;
procedure TForm7.Button6Click(Sender: TObject);
begin
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
combobox1.Text:='請選擇';
checkbox1.Checked:=False;
checkbox2.Checked:=False;
button5.Enabled:=False;
button6.Enabled:=false;
button7.Enabled:=false;
end;
procedure TForm7.Edit1Change(Sender: TObject);
begin
button2.Enabled:=True;
button3.Enabled:=True;
end;
procedure TForm7.Edit6Change(Sender: TObject);
begin
button5.Enabled:=True;
button6.Enabled:=True;
end;
procedure TForm7.Button5Click(Sender: TObject);
begin
if Trim(edit6.Text)<>'' then
begin
Adodataset2.Active:=False;
Adodataset2.CommandText:='select Shumin,Ru_riqi,GJbumen,ZhuTai from shuku where book_id='''+trim(edit6.Text)+'''';
Adodataset2.Active:=True;
if Adodataset2.RecordCount>0 then
begin
edit7.Text:=Adodataset2.Fields[0].AsString;
edit8.Text:=Adodataset2.Fields[1].AsString;
Ru_riqi:=Adodataset2.Fields[1].AsString;
GJbumen:=Adodataset2.Fields[2].AsString;
ZhuTai:=Adodataset2.Fields[3].AsString;
button7.Enabled:=True;
end
else
messagedlg('沒有滿足條件的圖書！',mtwarning,[mbok],0);
end
end;
procedure TForm7.Button7Click(Sender: TObject);
var
YH_riqi:string;
command_exe:boolean;
Date_temp:Tdate;
tianshu:string;
begin
command_exe:=True;
if Trim(edit6.Text)<>'' then
begin
if ZhuTai='正常' then
begin
if (Trim(edit9.Text)<>'') and (combobox1.Text<>'請選擇') then
begin
//"入庫少天三天不允許借出"
if copy(Trim(edit6.Text),1,3)='T_Z' then
begin
Date_temp:=strtodate(Ru_riqi)+3;
if date_temp>date() then
begin
command_exe:=False;
messagedlg('雜志入庫三天內不允許外借！',mtwarning,[mbok],0);
end
else
begin
//可以外借,時限2天.生成sql語句
tianshu:=datetostr(date()+2);
Adocommand1.CommandText:='update shuku set Jieshuzhe='''+Trim(edit9.Text)+''', ZhuTai=''借出'',Chu_riqi='''+Datetostr(date())+''', YH_riqi='''+tianshu+''', JCZBumen='''+combobox1.Text+''' where book_id='''+Trim(edit6.Text)+'''';
end
end
else
begin
//非雜志類書借出，時限3天
tianshu:=datetostr(date()+3);
Adocommand1.CommandText:='update shuku set Jieshuzhe='''+Trim(edit9.Text)+''', ZhuTai=''借出'',Chu_riqi='''+Datetostr(date())+''', YH_riqi='''+tianshu+''' , JCZBumen='''+combobox1.Text+''' where book_id='''+Trim(edit6.Text)+'''';
end;
//處理 "若由業務部門申請訂購，圖書登記入庫后三十日內（含三十日）由申請訂購部門負責保管"
if checkbox1.Checked then
if (combobox1.Text=GJbumen) then
begin
tianshu:=datetostr(date()+30);
Adocommand1.CommandText:='update shuku set Jieshuzhe='''+Trim(edit9.Text)+''', ZhuTai=''借出'',Chu_riqi='''+Datetostr(date())+''', YH_riqi='''+tianshu+''', JCZBumen='''+combobox1.Text+''' where book_id='''+Trim(edit6.Text)+'''';
//showmessage(Adocommand1.CommandText);
end
else
begin
messagedlg('所選部門與圖書申購部門不一致！',mtwarning,[mbok],0);
command_exe:=False;
end;
//"可長期放在申訂部門保管"
if checkbox2.Checked then
if (combobox1.Text=GJbumen) then
begin
Adocommand1.CommandText:='update shuku set Jieshuzhe='''+Trim(edit9.Text)+''', ZhuTai=''借出'',Chu_riqi='''+Datetostr(date())+''', YH_riqi=''長期'', JCZBumen='''+combobox1.Text+''' whre book_id='''+Trim(edit6.Text)+'''';
end
else
begin
messagedlg('所選部門與圖書申購部門不一致！',mtwarning,[mbok],0);
command_exe:=False;
end;
if command_exe then
begin
//showmessage(Adocommand1.CommandText);
Adocommand1.Execute;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -