?? unit2.pas

?? 用DELPHI來編寫的圖書管理系統
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, DB, ADODB, Menus, CheckLst, DBCtrls,
  ComCtrls, Buttons, ToolWin, XPStyleActnCtrls, ActnMan, ActnList, ImgList,
  Grids, DBGrids, Mask;

type
  TForm2 = class(TForm)
    Image1: TImage;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    ImageList1: TImageList;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    ActionManager1: TActionManager;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    Animate1: TAnimate;
    Image2: TImage;
    StaticText1: TStaticText;
    Panel2: TPanel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    SpeedButton8: TSpeedButton;
    BitBtn5: TBitBtn;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox1: TGroupBox;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    RadioButton3: TRadioButton;
    StaticText8: TStaticText;
    DataSource2: TDataSource;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    BitBtn11: TBitBtn;
    N3: TMenuItem;
    ADOTable2: TADOTable;
    BitBtn12: TBitBtn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure StaticText5Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public Edit7 declarations }
  end;

var
  Form2: TForm2;
implementation

uses Unit1,Unit4,Unit6,Unit7,Unit8,Unit9, Unit10;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
form6.Show;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
ADOQuery1.Close;
           ADOQuery1.SQL.Clear;           ADOQuery1.SQL.Add('select * from 書籍信息表 where 書籍編號='''+Edit1.Text+'''');           ADOQuery1.Open;
           if ADOQuery1.Recordset.RecordCount >0 then
              application.MessageBox('該書籍編號已經存在，請檢查！','提示',96)
           else
           begin
             adotable1.Append;
             adotable1.FieldByName('書籍編號').AsString:=edit1.Text;
             adotable1.FieldByName('名稱').AsString:=edit2.Text;
             adotable1.FieldByName('作者').AsString:=edit3.Text;
             adotable1.FieldByName('價格').AsFloat:=strToFloat(edit4.Text);
             adotable1.FieldByName('入庫時間').AsDateTime:=Date();
             adotable1.FieldByName('書籍位置').AsString:=edit6.Text;
             adotable1.FieldByName('出版社').AsString:=edit7.Text;
             adotable1.Post;             application.MessageBox('添加成功！','提示',64)
           end
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
form7.Show;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
   N11.Enabled:=false;
   N12.Enabled:=false;
   BitBtn5.Enabled:=false;
   BitBtn3.Enabled:=false;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
form8.Show;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
form6.Show;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  if (edit1.Text='') and(edit2.Text='') then
  begin
    application.MessageBox('請輸入書籍編號或名稱!','提示',64);
  end
  else
  begin
   BitBtn3.Enabled:=true;
   BitBtn5.Enabled:=true;
   edit1.Enabled:=true;
   edit2.Enabled:=true;
   edit3.Enabled:=true;
   edit4.Enabled:=true;
   edit5.Enabled:=true;
   edit6.Enabled:=true;
   edit7.Enabled:=true;
   N11.Enabled:=true;
   N12.Enabled:=true;
   if edit1.Text<>'' then
   begin
     adoquery1.close;
     adoquery1.SQL.Clear;
     adoquery1.sql.Add('select * from 書籍信息表 where 書籍編號='''+edit1.Text+'''');
     adoquery1.open;
     if ADOQuery1.Recordset.RecordCount =0 then
     begin
       application.MessageBox('該書籍不存存在，請檢查！','提示',96);
     end
     else
     begin
       edit2.Text:=adoquery1.FieldByName('名稱').AsString;
       edit3.Text:=adoquery1.FieldByName('作者').AsString;
       edit4.Text:=adoquery1.FieldByName('價格').AsString;
       edit5.Text:=adoquery1.FieldByName('入庫時間').AsString;
       edit6.Text:=adoquery1.FieldByName('書籍位置').AsString;
       edit7.Text:=adoquery1.FieldByName('出版社').AsString;
     end
   end
  end
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
  N11.Enabled:=false;
  N12.Enabled:=false;
  BitBtn5.Enabled:=false;
  BitBtn3.Enabled:=false;
  if (edit1.Text='') and (edit2.Text='') then
  begin
    application.MessageBox('請輸入書籍編號或書籍名稱!','提示',64);
  end
  else
  begin
     if edit1.Text='' then
     begin
       adoquery1.close;
       adoquery1.SQL.Clear;
       adoquery1.sql.Add('select * from 書籍信息表 where 名稱='''+(edit2.Text)+'''');
       adoquery1.open;
       if ADOQuery1.Recordset.RecordCount =0 then
       begin
          application.MessageBox('該書籍不存存在，請檢查！','提示',96);
       end
       else
       begin
           if (edit3.Text='') or (edit4.Text='')or(edit6.Text='') or(edit7.Text='') then
         begin
           application.MessageBox('請輸入完整信息','提示',64);
         end
         else
         begin
           adoquery1.SQL.Clear;
           adoquery1.sql.Add('select * from 書籍信息表 where 書籍編號='''+edit1.Text+'''');
           adoquery1.FieldByName('名稱').AsString:=edit3.Text;
           adoquery1.FieldByName('價格').AsFloat:=strToFloat(edit4.Text);
           adoquery1.FieldByName('入庫時間').AsDateTime:=Date();
           adoquery1.FieldByName('書籍位置').AsString:=edit6.Text;
           adoquery1.FieldByName('出版社').AsString:=edit7.Text;
           adoquery1.Post;           adoquery1.Open;           application.MessageBox('修改成功！','提示',64);
         end
       end
     end
     else
     begin
       adoquery1.close;
       adoquery1.SQL.Clear;
       adoquery1.sql.Add('select * from 書籍信息表 where 書籍編號='''+edit1.Text+'''');
       adoquery1.open;
       if ADOQuery1.Recordset.RecordCount =0 then
       begin
          application.MessageBox('該書籍不存存在，請檢查！','提示',96);
       end
       else
       begin
           adoquery1.Close;
           adoquery1.SQL.Clear;
           adoquery1.sql.Add('update 書籍信息表 set 名稱='''+edit2.Text+''',作者='''+edit3.Text+''',價格='''+edit4.Text+''',入庫時間='''+edit5.Text+''',書籍位置='''+edit6.Text+''',出版社='''+edit7.Text+''' where 書籍編號='''+edit1.Text+'''');
           adoquery1.ExecSQL;
           application.MessageBox('修改成功！','提示',64);

       end
     end
  end

end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
   N11.Enabled:=false;
   N12.Enabled:=false;
   BitBtn5.Enabled:=false;
   BitBtn3.Enabled:=false;
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;   ADOQuery1.SQL.Add('select * from 書籍信息表 where 書籍編號='''+Edit1.Text+'''');   ADOQuery1.Open;
   if ADOQuery1.Recordset.RecordCount=0 then
   begin
     application.MessageBox('請輸入書籍編號!','提示',64);
   end
   else
   begin
     ADOQuery1.Delete;
     application.MessageBox('刪除成功!','提示',64);
   end
end;

procedure TForm2.BitBtn6Click(Sender: TObject);
begin
form2.Close;
form1.Show;
12 下一頁
?? 文件大小 5025 K
?? 上傳用戶 zyz5925629
?? 所屬分類教育系統應用
??? 相關標簽

#DELPHI #編寫 #圖書管理
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit2.pas

?? 快捷鍵說明
