listform.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

unit ListForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseForm, ImgList, ExtCtrls, DBData, SysPublic,
  dxBar, dxBarExtItems, Menus, KsHooks, KsForms, KsSkinForms, KsControls,
  KsPanels, KsSkinPanels, KsMessages, KsSkinMessages, StdCtrls;

type
  TfrmListForm = class(TfrmBaseForm)
    pnlForm: TSeSkinPanel;
    dxBarManager1: TdxBarManager;
    bbSelect: TdxBarLargeButton;
    bbAdd: TdxBarLargeButton;
    bbSub: TdxBarLargeButton;
    bbEdit: TdxBarLargeButton;
    bbDel: TdxBarLargeButton;
    bbType: TdxBarLargeButton;
    bbPrint: TdxBarLargeButton;
    bbExit: TdxBarLargeButton;
    PrintMenu: TdxBarPopupMenu;
    ChartMenu: TdxBarPopupMenu;
    pbbPrint: TdxBarButton;
    pbbPrintView: TdxBarButton;
    pbbPrintCustom: TdxBarButton;
    pbbPrintInit: TdxBarButton;
    bbFind: TdxBarLargeButton;
    bbFilter: TdxBarLargeButton;
    bbDate: TdxBarLargeButton;
    bbSave: TdxBarLargeButton;
    bbSetCol: TdxBarLargeButton;
    bbRefresh: TdxBarLargeButton;
    bbAllSelect: TdxBarLargeButton;
    bbAlldel: TdxBarLargeButton;
    bbChart: TdxBarLargeButton;
    bbSaveAs: TdxBarLargeButton;
    pbbPrintChart: TdxBarButton;
    pbbChartView: TdxBarButton;
    pbbChartSetup: TdxBarButton;
    bbBands: TdxBarLargeButton;
    bbAll: TdxBarLargeButton;
    bbDetaled: TdxBarLargeButton;
    bbBlankout: TdxBarLargeButton;
    bbCopy: TdxBarLargeButton;
    procedure bbExitClick(Sender: TObject);
    procedure pbbPrintClick(Sender: TObject);
    procedure pbbPrintViewClick(Sender: TObject);
    procedure pbbPrintCustomClick(Sender: TObject);
    procedure pbbPrintInitClick(Sender: TObject);
    procedure bbPrintClick(Sender: TObject);
    procedure pbbPrintChartClick(Sender: TObject);
    procedure pbbChartViewClick(Sender: TObject);
    procedure bbChartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MainShow;
  protected
    sPubFindText: string;
    lPubFindFiled: Integer;
    sPrintChart: string;
    bQDrawFullGrid: Boolean;
  public
    { Public declarations }
  end;

procedure ListFormShow;
implementation
{$R *.DFM}

procedure ListFormShow;
var
  frmListForm: TfrmListForm;
begin
  frmListForm := TfrmListForm.Create(Application);
  with frmListForm do
  begin
    MainShow;
    Free;
  end;
end;

procedure TfrmListForm.MainShow;
begin
  ShowModal;
end;

procedure TfrmListForm.bbExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmListForm.pbbPrintClick(Sender: TObject);
begin
  inherited;
  PrintForm(Self, 1, PRINT_REPORT, sPrintFile);
end;

procedure TfrmListForm.pbbPrintViewClick(Sender: TObject);
begin
  inherited;
  PrintForm(Self, 1, SHOW_REPORT, sPrintFile);
end;

procedure TfrmListForm.pbbPrintCustomClick(Sender: TObject);
begin
  inherited;
  PrintForm(Self, 1, DESIGN_REPORT, sPrintFile);
end;

procedure TfrmListForm.pbbPrintInitClick(Sender: TObject);
begin
  inherited;
  PrintForm(Self, 1, INITI_REPORT, sPrintFile);
end;

procedure TfrmListForm.bbPrintClick(Sender: TObject);
begin
  inherited;
  pbbPrintViewClick(nil);
end;

procedure TfrmListForm.pbbPrintChartClick(Sender: TObject);
begin
  inherited;
  PrintForm(Self, 1, PRINT_REPORT, sPrintFile, sPrintChart);
end;

procedure TfrmListForm.pbbChartViewClick(Sender: TObject);
begin
  inherited;
  PrintForm(Self, 1, SHOW_REPORT, sPrintFile, sPrintChart);
end;

procedure TfrmListForm.bbChartClick(Sender: TObject);
begin
  inherited;
  pbbChartViewClick(nil);
end;

procedure TfrmListForm.FormCreate(Sender: TObject);
begin
  inherited;
  bQDrawFullGrid := StrToBool2(GetIniValue(frmData.ADOConnetLogin, 'QDrawFullGrid'));
end;

end.