p_main.pas

图书出版行业 对于图书样稿/清样/样书/成书的质检环节控制

unit p_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, ComCtrls, Buttons, ExtCtrls,
  ToolWin, ADODB, Menus,inifiles, QRCtrls, QuickRpt,MMSystem,MPlayer;

type
  Tf_main = class(TForm)
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    conn: TADOConnection;
    query: TADOQuery;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N11: TMenuItem;
    N1x: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N17: TMenuItem;
    N4: TMenuItem;
    N18: TMenuItem;
    N12: TMenuItem;
    N16: TMenuItem;
    N15: TMenuItem;
    Timer1: TTimer;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    N2: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    SpeedButton9: TSpeedButton;
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRDBText1: TQRDBText;
    QRLabel5: TQRLabel;
    QRDBText2: TQRDBText;
    QRLabel6: TQRLabel;
    QRDBText3: TQRDBText;
    QRLabel7: TQRLabel;
    QRDBText4: TQRDBText;
    QRLabel8: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRShape9: TQRShape;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRLabel18: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRShape20: TQRShape;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel34: TQRLabel;
    QRLabel35: TQRLabel;
    QRLabel36: TQRLabel;
    QRLabel37: TQRLabel;
    QRLabel38: TQRLabel;
    QRLabel39: TQRLabel;
    QRLabel40: TQRLabel;
    QRLabel41: TQRLabel;
    QRLabel42: TQRLabel;
    QRLabel43: TQRLabel;
    QRRichText1: TQRRichText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText17: TQRDBText;
    QRDBText18: TQRDBText;
    QRDBText19: TQRDBText;
    QRDBText20: TQRDBText;
    QRDBText21: TQRDBText;
    QRDBText22: TQRDBText;
    QRDBText23: TQRDBText;
    QRDBText24: TQRDBText;
    QRDBText25: TQRDBText;
    QRDBText26: TQRDBText;
    QRDBText27: TQRDBText;
    QRDBText28: TQRDBText;
    QRDBText29: TQRDBText;
    QRDBText30: TQRDBText;
    QRDBText31: TQRDBText;
    QRDBText32: TQRDBText;
    QRDBText33: TQRDBText;
    QRDBText34: TQRDBText;
    QRDBText35: TQRDBText;
    QRDBText37: TQRDBText;
    QRDBText38: TQRDBText;
    QRDBText36: TQRDBText;
    QRDBText39: TQRDBText;
    QRDBText40: TQRDBText;
    QRDBText41: TQRDBText;
    QRDBText42: TQRDBText;
    QRDBText43: TQRDBText;
    QRDBText44: TQRDBText;
    QRDBText45: TQRDBText;
    QRDBText46: TQRDBText;
    QRDBText47: TQRDBText;
    QRDBText48: TQRDBText;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    DBGrid1: TDBGrid;
    information: TADOQuery;
    SpeedButton10: TSpeedButton;
    Timer2: TTimer;
    Timer3: TTimer;
    SpeedButton11: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    private
    { Private declarations }
  public
  change:boolean;
  qx:integer;
  f:integer;
  s:integer;
  pagenum:integer;
      { Public declarations }
  end;

var
  f_main: Tf_main;
  myinifile:Tinifile;
implementation

uses p_data, p_add, p_login, p_gly, p_xueke, p_banben, p_tsxx, p_dataroad,
  p_about, p_bumen, p_banbie, p_mekuai, p_print, p_cszj, p_sp, p_look,
  p_jiayin, p_sysearch, P_information;

{$R *.dfm}




procedure Tf_main.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(Tf_add,f_add);
f_add.ShowModal;
f_add.Free;
end;

procedure Tf_main.FormShow(Sender: TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
//winexec('net use \\192.168.0.204\ipc$ "" /user:administrator',sw_hide);
conn.Close;
conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+myinifile.ReadString('数据库','服务器','')+'\成书质检\sjjb.mdb;Persist Security Info=False';
conn.open;
myinifile.Destroy;
application.CreateForm(Tf_login,f_login);
f_login.ShowModal;
f_login.free;
qx:=f_login.q;
if (qx=1) or (qx=2) or (qx=3) or (qx=4) or (qx=5) or (qx=6) then
  speedbutton5.Enabled:=true;
if (qx=7) or (qx=8) or (qx=9) or (qx=10) then
  begin
  speedbutton4.Enabled:=true;
  speedbutton6.Enabled:=true;
  speedbutton9.Enabled:=true;
  end;
if (qx=7) or (qx=8) then
  begin
  speedbutton1.Enabled:=true;
  speedbutton2.Enabled:=true;
  speedbutton3.Enabled:=true;
  f_main.N1.Enabled:=true;
  end;
if (qx=90) or (qx=100) then
  speedbutton11.Enabled:=true;
with query do
   begin
      close;
      sql.Clear;
      sql.add('select * from 成书质检表 order by 质检开始时间 desc');
      // sql.Add('select * from 成书质检表 where datediff("d",质检开始时间,now)<=7  order by 质检开始时间 desc');
      open;
   end;



end;

procedure Tf_main.SpeedButton2Click(Sender: TObject);
begin
change:=true;
application.CreateForm(Tf_add,f_add);
f_add.ShowModal;
f_add.Free;
end;

procedure Tf_main.SpeedButton3Click(Sender: TObject);
begin
try
  if Application.MessageBox('是否删除当前记录？','提示',mb_yesno)=id_yes then
      query.Delete;
  except
    Application.MessageBox('不能删除','提示',mb_yesno);
  end;
end;

procedure Tf_main.N11Click(Sender: TObject);
begin

application.CreateForm(Tf_gly,f_gly);
f_gly.ShowModal;
f_gly.Free;

end;

procedure Tf_main.N4Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要退出系统吗？','清样页码交接系统',mb_yesno+mb_iconquestion)=idyes then
application.Terminate;
end;

procedure Tf_main.N13Click(Sender: TObject);
begin

application.CreateForm(Tf_xueke,f_xueke);
f_xueke.ShowModal;
f_xueke.Free;

end;

procedure Tf_main.N14Click(Sender: TObject);

begin
application.CreateForm(Tf_tsxx,f_tsxx);
f_tsxx.ShowModal;
f_tsxx.Free;

end;

procedure Tf_main.N17Click(Sender: TObject);
begin

application.CreateForm(Tf_banben,f_banben);
f_banben.ShowModal;
f_banben.Free;

end;

procedure Tf_main.N18Click(Sender: TObject);
begin

application.CreateForm(Tf_dataroad,f_dataroad);
f_dataroad.ShowModal;
f_dataroad.Free;

end;

procedure Tf_main.N3Click(Sender: TObject);
begin
application.CreateForm(Tf_about,f_about);
f_about.ShowModal;
f_about.Free;
end;

procedure Tf_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;

procedure Tf_main.N12Click(Sender: TObject);
begin

application.CreateForm(Tf_bumen,f_bumen);
f_bumen.ShowModal;
f_bumen.Free;

end;

procedure Tf_main.N16Click(Sender: TObject);
begin

application.CreateForm(Tf_banbie,f_banbie);
f_banbie.ShowModal;
f_banbie.Free;

end;

procedure Tf_main.N15Click(Sender: TObject);
begin

application.CreateForm(Tf_mekuai,f_mekuai);
f_mekuai.ShowModal;
f_mekuai.Free;

end;

procedure Tf_main.Timer1Timer(Sender: TObject);

begin
 //消息提示
 f:=0;
 s:=0;
 with information do
   begin
      close;
      sql.Clear;
     if qx=1 then
       begin
         sql.add('select * from 成书质检表 where 质检状态1="未检" order by 质检开始时间 desc');
         open;
         f:=RecordCount;
         close;
         sql.Clear;
         sql.add('select * from 加印图书质检 where 质检状态1="未检" order by 质检开始时间 desc');
         open;
         s:=RecordCount;
         if (f>0) or (s>0) then
            begin
              //application.CreateForm(Tf_information,f_information);
              f_information.Label1.Caption:='您有'+inttostr(f)+'本首印图书需要质检!';
              f_information.Label2.Caption:='您有'+inttostr(s)+'本加印图书需要质检!';
              //f_information.ShowModal;
              //f_information.Free;
              f_information.Visible:=true;
              timer2.Enabled:=true;
              timer1.Enabled:=false;
            end;
       end;

     if qx=2 then
       begin
         sql.add('select * from 成书质检表 where 质检状态2="未检" order by 质检开始时间 desc');
         open;
         f:=RecordCount;
         close;
         sql.Clear;
         sql.add('select * from 加印图书质检 where 质检状态2="未检" order by 质检开始时间 desc');
         open;
         s:=RecordCount;

         if (f>0) or (s>0) then
            begin
              f_information.Label1.Caption:='您有'+inttostr(f)+'本首印图书需要质检!';
              f_information.Label2.Caption:='您有'+inttostr(s)+'本加印图书需要质检!';
              f_information.Visible:=true;
              timer2.Enabled:=true;
              timer1.Enabled:=false;
            end;
       end;


     if qx=3 then
       begin
         sql.add('select * from 成书质检表 where 质检状态3="未检" order by 质检开始时间 desc');
         open;
         f:=RecordCount;