systemfrm.pas

仓库管理Delphi源码、软件方案,学习实用两不误

unit SystemFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls,
  Db, ADODB, FileCtrl, Buttons;


type
  TfrmSystem = class(TForm)
    qryKc: TADOQuery;
    qryLog: TADOQuery;
    dskc: TDataSource;
    dsLog: TDataSource;
    
    dbngRk: TDBNavigator;
    grdKc: TDBGrid;
    grdLog: TDBGrid;
    dtpLog: TDateTimePicker;


    pgcMain: TPageControl;
    shtRkcssz: TTabSheet;
    shtXtrz: TTabSheet;
    shtSjbfyhf: TTabSheet;

    pnlXtrzTop: TPanel;
    pnlRkBottom: TPanel;
    pnlSjbfyhfBottom: TPanel;
    
    mmoLog: TDBMemo;
    mmoComment: TMemo;


    btnRestore: TButton;
    btnBackup: TButton;

    lblXtrj: TLabel;


    procedure btnBackupClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dtpLogChange(Sender: TObject);
    procedure qryKcAfterPost(DataSet: TDataSet);
    procedure btnRestoreClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

{$R *.DFM}

uses
  ConstUnt;

procedure TfrmSystem.btnBackupClick(Sender: TObject);
var
  SelDir: string;
begin
  SelectDirectory(SelLocation, '', SelDir);
  if LogonInf.Sjbf(SelDir) then
    MessageBox(Handle, PChar(SjbfComplete), MsgI, Msg1IBTN);
end;

procedure TfrmSystem.FormShow(Sender: TObject);
var
  PqryTemp: ^TADOQuery;
  I: Byte;
begin
  PqryTemp := @qryKc;
  dtpLog.DateTime := Now;
  for I := 0 to 1 do
  begin
    PqryTemp^.Connection := LogonInf.dbCkgl;
    PqryTemp^.Open;
    Inc(PqryTemp);
  end;

  with grdKc, LogonInf do
  begin
    with pgcMain do
      for I := 0 to 2 do
        Pages[I].TabVisible := FunctionLst.Strings[15 + I] = 'True';
    Columns[0].PickList := CklbLst;
    Columns[1].PickList := HwlbLst;
    Columns[2].PickList := HwggLst;
    Columns[3].PickList := PpcdLst;
    Columns[4].PickList := JldwLst;
  end;

  dtpLogChange(dtpLog);



end;

procedure TfrmSystem.dtpLogChange(Sender: TObject);
begin
  with qryLog do
  begin
    Close;
    Parameters[0].Value := DateToStr(dtpLog.Date);
    Open;
  end;
end;

procedure TfrmSystem.qryKcAfterPost(DataSet: TDataSet);
begin
  with LogonInf do
    UpdateLog(AppTitle + ' - 库存初始化操作');
end;

procedure TfrmSystem.btnRestoreClick(Sender: TObject);
begin
  with TOpenDialog.Create(Self) do
    try
      Options := Options + [ofAllowMultiSelect];
      Title := '数据恢复 Ctrl + 鼠标 -- 多选';
      Filter := '数据库|*.mdb|所有文件|*.*';
      if Execute then
        if LogonInf.Sjhf(TStringList(Files)) then
        begin
          MessageBox(Handle, PChar(SjhfComplete), MsgI, Msg1IBTN);
          Application.Terminate;
          WinExec('Ckgl.exe', 0);
        end;


    finally
      Free;
    end;
end;

end.