main.~pas

一个图书批发商的通用软件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, dxBar, ImgList,adodb,db,Data, StdActns,
  ActnList,inifiles;

type
  TfrmMain = class(TForm)
    StatusBar: TStatusBar;
    dxBarManager1: TdxBarManager;
    dxBarButton1: TdxBarButton;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    dxBarButton4: TdxBarButton;
    dxBarSubItem2: TdxBarSubItem;
    dxBarButton5: TdxBarButton;
    dxBarButton6: TdxBarButton;
    MenuImges: TImageList;
    dxBarSubItem3: TdxBarSubItem;
    dxBarSubItem4: TdxBarSubItem;
    dxBarSubItem5: TdxBarSubItem;
    dxBarSubItem1: TdxBarSubItem;
    dxBarButton7: TdxBarButton;
    dxBarButton8: TdxBarButton;
    dxBarButton9: TdxBarButton;
    dxBarButton10: TdxBarButton;
    dxBarButton11: TdxBarButton;
    dxBarButton12: TdxBarButton;
    dxBarButton13: TdxBarButton;
    dxBarSubItem6: TdxBarSubItem;
    dxBarButton14: TdxBarButton;
    dxBarSubItem7: TdxBarSubItem;
    dxBarButton15: TdxBarButton;
    dxBarButton16: TdxBarButton;
    dxBarButton17: TdxBarButton;
    dxBarButton18: TdxBarButton;
    dxBarButton19: TdxBarButton;
    dxBarButton20: TdxBarButton;
    dxBarSubItem8: TdxBarSubItem;
    dxBarButton21: TdxBarButton;
    dxBarButton22: TdxBarButton;
    dxBarButton23: TdxBarButton;
    dxBarButton24: TdxBarButton;
    dxBarButton25: TdxBarButton;
    dxBarButton26: TdxBarButton;
    dxBarButton27: TdxBarButton;
    dxBarButton28: TdxBarButton;
    dxBarButton29: TdxBarButton;
    dxBarButton30: TdxBarButton;
    dxBarButton31: TdxBarButton;
    dxBarButton32: TdxBarButton;
    dxBarButton33: TdxBarButton;
    dxBarButton34: TdxBarButton;
    dxBarButton35: TdxBarButton;
    dxBarButton36: TdxBarButton;
    dxBarButton37: TdxBarButton;
    dxBarButton38: TdxBarButton;
    sdgBakup: TSaveDialog;
    pdgRestore: TOpenDialog;
    dxBarSubItem9: TdxBarSubItem;
    dxBarButton39: TdxBarButton;
    dxBarButton40: TdxBarButton;
    dxBarButton41: TdxBarButton;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    qryTbRun: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarButton2Click(Sender: TObject);
    procedure dxBarButton5Click(Sender: TObject);
    procedure dxBarButton3Click(Sender: TObject);
    procedure dxBarButton4Click(Sender: TObject);
    procedure dxBarButton6Click(Sender: TObject);
    procedure dxBarButton7Click(Sender: TObject);
    procedure dxBarButton15Click(Sender: TObject);
    procedure dxBarButton16Click(Sender: TObject);
    procedure dxBarButton13Click(Sender: TObject);
    procedure dxBarButton8Click(Sender: TObject);
    procedure dxBarButton9Click(Sender: TObject);
    procedure dxBarButton20Click(Sender: TObject);
    procedure dxBarButton12Click(Sender: TObject);
    procedure dxBarButton17Click(Sender: TObject);
    procedure dxBarButton10Click(Sender: TObject);
    procedure dxBarButton11Click(Sender: TObject);
    procedure dxBarButton38Click(Sender: TObject);
    procedure dxBarButton18Click(Sender: TObject);
    procedure dxBarButton19Click(Sender: TObject);
    procedure dxBarButton34Click(Sender: TObject);
    procedure dxBarButton36Click(Sender: TObject);
    procedure dxBarButton35Click(Sender: TObject);
    procedure dxBarButton37Click(Sender: TObject);
    procedure dxBarButton21Click(Sender: TObject);
    procedure dxBarButton22Click(Sender: TObject);
    procedure dxBarButton23Click(Sender: TObject);
    procedure dxBarButton24Click(Sender: TObject);
    procedure dxBarButton25Click(Sender: TObject);
    procedure dxBarButton26Click(Sender: TObject);
    procedure dxBarButton27Click(Sender: TObject);
    procedure dxBarButton28Click(Sender: TObject);
    procedure dxBarButton29Click(Sender: TObject);
    procedure dxBarButton30Click(Sender: TObject);
    procedure dxBarButton31Click(Sender: TObject);
    procedure dxBarButton32Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
    procedure loadUserInfo;
  end;

var
  frmMain: TfrmMain;
implementation

uses unSystPublic, UserPassword, EditPassword, UserManager, House,
  BookClass, Client, SaleBooking, GetMoney, OutMoney, SearchKu, SaleUnit,
  BackUnit, User, BackPBUnit, Publish, InHouseUnit, BuyBook, Memo, Getysdz,
  pasyfcx, pastsxxcx, pasrkcx, pasthcx, pasxscx, pasyscx, pasyffk,
  paskhthcx, paskhthcx1, pasrkcx1, pasthcx1, pasxscx1, pasfhjstj, pasdhjstj,
  paskcxg;

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  with qryTbRun do
  begin
    Close;
    try
      Open;
      if FieldByName('exit').AsString='1' then
      begin
       Application.Terminate;
       exit;
      end;
      if now >StrToDateTime('2004-07-10 12:00:00') then
      begin
        append;
        FieldByName('exit').AsString :='1';
        post;
      end;  
    except
      Application.Terminate;
    end;
  end;
  if not ConctionDataBase('MainBook.mdb') then
  Application.MessageBox('数据库连接失败',title,MB_ICONERROR)
 
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  FrmUserPasswordShow;
  loadUserInfo;
  loadeMemo;
end;

procedure TfrmMain.dxBarButton1Click(Sender: TObject);
begin
  frmEditPasswordshow;
end;

procedure TfrmMain.dxBarButton2Click(Sender: TObject);
begin
  FrmUserManagerShow;
end;

procedure TfrmMain.dxBarButton5Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmMain.dxBarButton3Click(Sender: TObject);
begin
  frmHouseShow;
end;

procedure TfrmMain.dxBarButton4Click(Sender: TObject);
begin
  frmBookClassShow;
end;

procedure TfrmMain.dxBarButton6Click(Sender: TObject);
begin
  frmClientShow;
end;

procedure TfrmMain.dxBarButton7Click(Sender: TObject);
begin
  ChildrenShow(TfrmSaleBooking,frmSaleBooking,Self);
end;

procedure TfrmMain.dxBarButton15Click(Sender: TObject);
begin
  ChildrenShow(Tfryscx,fryscx,Self);
end;

procedure TfrmMain.dxBarButton16Click(Sender: TObject);
begin
  ChildrenShow(Tfryfcx,fryfcx,Self);
end;

procedure TfrmMain.dxBarButton13Click(Sender: TObject);
begin
  ChildrenShow(TfrmSearchKu,frmSearchKu,Self);
end;

procedure TfrmMain.dxBarButton8Click(Sender: TObject);
begin
  ChildrenShow(TfrmSaleUnit,frmSaleUnit,Self);
end;

procedure TfrmMain.dxBarButton9Click(Sender: TObject);
begin
  ChildrenShow(TfrmBackUnit,frmBackUnit,Self);
end;

procedure TfrmMain.dxBarButton20Click(Sender: TObject);
begin
  ShowUser;
end;

procedure TfrmMain.dxBarButton12Click(Sender: TObject);
begin
  ChildrenShow(TfrmBackPBUnit,frmBackPBUnit,Self);
end;

procedure TfrmMain.dxBarButton17Click(Sender: TObject);
begin
  frmPublishShow;
end;

procedure TfrmMain.dxBarButton10Click(Sender: TObject);
begin
  ChildrenShow(TfrmInHouseUnit,frmInHouseUnit,Self);
end;

procedure TfrmMain.dxBarButton11Click(Sender: TObject);
begin
  ChildrenShow(TfrmBuyBook,frmBuyBook,Self);
end;

procedure TfrmMain.loadUserInfo;
var qryuser :Tadoquery;
begin
  qryuser :=Tadoquery.Create(self);
  qryuser.Connection :=dmData.adcDatabase;
  try
    with qryuser do
    begin
      Close;
      SQL.Text :='select * from tbunit' ;
      open;
      Locate('Used',true,[loCaseInsensitive]);
      sysname:=fieldbyname('NnitName').AsString;
      sysaddress:=fieldbyname('NnitAddress').AsString;
      systl:=fieldbyname('NnitTel').AsString;
      syspo:=fieldbyname('NnitPo').AsString;
    end;
  finally
    qryuser.Free;
  end;
end;

procedure TfrmMain.dxBarButton38Click(Sender: TObject);
begin
  frmMemoShowmal
end;

procedure TfrmMain.dxBarButton18Click(Sender: TObject);
begin
  if sdgBakup.Execute then
  begin
    if CopyFile(pchar(ExtractFilePath(ParamStr(0))+'MainBook.mdb'),pchar(sdgBakup.FileName),false) then
    Application.MessageBox('数据备份成功',Title)
    else Application.MessageBox('数据备份失败',Title)
  end;
end;

procedure TfrmMain.dxBarButton19Click(Sender: TObject);
begin
 if Application.MessageBox('数据恢复，原数据将被覆盖，继续恢复吗？',Title,MB_ICONQUESTION+MB_YESNO)=idyes then
 begin
   Application.Terminate;
   WinExec(PChar(ExtractFileDir(Paramstr(0)) + '\resdb.exe'), SW_NORMAL);
 end;
end;

procedure TfrmMain.dxBarButton34Click(Sender: TObject);
begin
  ChildrenShow(TfrmGetysdz,frmGetysdz,Self);
end;

procedure TfrmMain.dxBarButton36Click(Sender: TObject);
begin
  ChildrenShow(TfrmGetMoney,frmGetMoney,Self);
end;

procedure TfrmMain.dxBarButton35Click(Sender: TObject);
begin
  ChildrenShow(TfrmOutMoney,frmOutMoney,Self);
end;

procedure TfrmMain.dxBarButton37Click(Sender: TObject);
begin
  ChildrenShow(TfrmOutyfcx,frmOutyfcx,Self);
end;

procedure TfrmMain.dxBarButton21Click(Sender: TObject);
begin
  ChildrenShow(Ttsxxcx,tsxxcx,Self);
end;

procedure TfrmMain.dxBarButton22Click(Sender: TObject);
begin
  ChildrenShow(Trkcx,rkcx,Self);
end;

procedure TfrmMain.dxBarButton23Click(Sender: TObject);
begin
  ChildrenShow(Tthcx,thcx,Self);
end;

procedure TfrmMain.dxBarButton24Click(Sender: TObject);
begin
  ChildrenShow(Txscx,xscx,Self);
end;

procedure TfrmMain.dxBarButton25Click(Sender: TObject);
begin
  ChildrenShow(Tkhthcx,khthcx,Self);
end;

procedure TfrmMain.dxBarButton26Click(Sender: TObject);
begin
  ChildrenShow(Trkcx1,rkcx1,Self);
end;

procedure TfrmMain.dxBarButton27Click(Sender: TObject);
begin
  ChildrenShow(Tthcx1,thcx1,Self);
end;

procedure TfrmMain.dxBarButton28Click(Sender: TObject);
begin
  ChildrenShow(Txscx1,xscx1,Self);
end;
   
procedure TfrmMain.dxBarButton29Click(Sender: TObject);
begin
  ChildrenShow(Tkhthcx1,khthcx1,Self);
end;

procedure TfrmMain.dxBarButton30Click(Sender: TObject);
begin
  ChildrenShow(Tfrfhjstj,frfhjstj,Self);
end;

procedure TfrmMain.dxBarButton31Click(Sender: TObject);
begin
  ChildrenShow(Tfrdhjstj,frfhjstj,Self);
end;
     
procedure TfrmMain.dxBarButton32Click(Sender: TObject);
begin
  ChildrenShow(TFrmkcxg,Frmkcxg,Self);
end;


end.