📄 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -