umain.~pas

图书管理系统,已经用于市场,此软件只供学习使用,不的用于商业行为

{
   编写日期:正月初十
   作者：贺新春
   用途：本文件是用来进行头像采集的
   本模块的结构：拍照，重拍，查询等构成
}
unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, Menus, jpeg, ExtCtrls, ComCtrls, ImgList, ToolWin,ShellApi;

type
  TMainfrm = class(TForm)
    XPManifest1: TXPManifest;
    MainMenu1: TMainMenu;
    Ntxcj: TMenuItem;
    Nsjdr: TMenuItem;
    N1: TMenuItem;
    Nzsdy: TMenuItem;
    Nbjdy: TMenuItem;
    N2: TMenuItem;
    Nzsbb: TMenuItem;
    N3: TMenuItem;
    Ngyzz: TMenuItem;
    Nggxt: TMenuItem;
    Ntcxt: TMenuItem;
    Npz: TMenuItem;
    Ndr: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    procedure NpzClick(Sender: TObject);
    procedure NtcxtClick(Sender: TObject);
    procedure NdrClick(Sender: TObject);
    procedure NzsdyClick(Sender: TObject);
    procedure NggxtClick(Sender: TObject);
    procedure NgyzzClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure NbjdyClick(Sender: TObject);
    procedure NzsbbClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Mainfrm: TMainfrm;

implementation

uses Ulogin, Utxcj, Usjdr, Uzsdy, Uabout, Uaboutactor, Ubbbj, Ubb, UDM,
  Ubbzs;

{$R *.dfm}
function checkdata(Str: string): boolean;
  var i,j:integer;
begin
    Result:=true;
    j:=Length(str);
    for i:=1 to j do
    begin
      if not (str[i] in ['0'..'9']) then
      begin
       Result:=false;
       exit;
      end;
    end;
end;

procedure TMainfrm.NpzClick(Sender: TObject); //头像采集窗体
begin
  txcjfrm:=Ttxcjfrm.Create(self);
  txcjfrm.ShowModal ;
  txcjfrm.Free;
end;

procedure TMainfrm.NtcxtClick(Sender: TObject);  //退出系统
begin
  if messagebox(handle,'您真的要退出系统吗？','系统提示',mb_iconquestion+mb_yesno)=idyes then
     application.Terminate ;
end;

procedure TMainfrm.NdrClick(Sender: TObject); //数据导入模块窗体
var
  mypath:string;
begin
    mypath:=extractfilepath(paramstr(0));
  //sjdrfrm:=Tsjdrfrm.Create(self);
  //sjdrfrm.ShowModal;
  //sjdrfrm.Free;
  //WinExec(ExtractFilePath(Application.Exename)+'sjdr.exe',SW_SHOWNORMAL);
   ShellExecute(Handle,nil,mypath+'sjdr.exe',nil,nil,SW_SHOWNORMAL);
end;

procedure TMainfrm.NzsdyClick(Sender: TObject); //证书打印窗体
begin
 zsdyfrm:=Tzsdyfrm.Create(self);
 zsdyfrm.ShowModal ;
 zsdyfrm.Free;
end;

procedure TMainfrm.NggxtClick(Sender: TObject);//关于系统窗体
begin
  aboutfrm:=Taboutfrm.Create(self);
  aboutfrm.ShowModal ;
  aboutfrm.Free ; 
end;

procedure TMainfrm.NgyzzClick(Sender: TObject); //关于作者窗体
begin
  aboutactorfrm:=Taboutactorfrm.Create(self);
  aboutactorfrm.ShowModal;
  aboutactorfrm.Free;
end;

procedure TMainfrm.FormCreate(Sender: TObject);
begin
   StatusBar1.Panels.Items[0].Text:='欢迎进入南华大学图书馆制卡系统';
   statusbar1.Panels.Items[0].Width:=mainfrm.Width div 3;
   statusbar1.Panels.Items[1].Width:=mainfrm.Width div 3;
   statusbar1.Panels.Items[2].Width:=mainfrm.Width div 3;
   statusbar1.Font.Size:=14;
end;

procedure TMainfrm.Timer1Timer(Sender: TObject);
begin
    StatusBar1.Panels.Items[2].Text:='目前的时间为：'+timetostr(now());
end;

procedure TMainfrm.NbjdyClick(Sender: TObject);//背景预览
var i,j:integer;
    s:string;
begin
  with dm.adobjdy do
    begin
       close;
       sql.Clear;
       sql.Add('select * from bjb');
       open;
    end;
  if dm.adobjdy.RecordCount<>0 then
      with dm.adobjdy do
           begin
             close;
             sql.Clear;
             sql.Add('delete from bjb');  //先删除背景表里所有记录
             execsql;
           end;
  s:=inputbox('系统提示','请输入要打印的页数：','0');
  if checkdata(s) then   //检查是否输入的是数字
    begin
       j:=strtoint(s);
       if j<>0 then
          begin
            j:=j*8;
            for i:=1 to j do
              begin
                 with dm.adobjdy do
                   begin
                   close;
                   sql.Clear ;
                   sql.Add('insert into bjb values(:bj)');
                   parameters.ParamByName('bj').Value :=inttostr(i);
                   execsql;
                   end;
              end;
              with dm.adobjdy do   //打开记录
                begin
                close;
                sql.Clear;
                sql.Add('select * from bjb');
                open;
                end;
             bbfrm.QuickRep1.Preview ;
         end
     else
        messagebox(handle,'您输入打印的页数不能为0','系统提示',mb_iconwarning+mb_ok);
     end
   else
       messagebox(handle,'您输入打印的页数不能包含非数字','系统提示',mb_iconwarning+mb_ok);
end;

procedure TMainfrm.NzsbbClick(Sender: TObject);  //补办证书
begin
   bbzs:=Tbbzs.Create(self);
   bbzs.ShowModal ;
   bbzs.Free;
end;

end.