kc_table.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

unit KC_table;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, ActnList, ToolWin, ComCtrls, Buttons, ImgList,
  dxExEdtr, dxDBCtrl, dxDBGrid, dxTL, DB, ADODB, dxCntner, FR_DSet,
  FR_DBSet, FR_Class, Menus;

type
  TfKC_table = class(Tfbaseform)
    ToolBar1: TToolBar;
    ActionList1: TActionList;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Actfind: TAction;
    actproint: TAction;
    actout: TAction;
    actquit: TAction;
    ImageList1: TImageList;
    SpeedButton2: TSpeedButton;
    dxDBGrid1: TdxDBGrid;
    ADOsearch: TADOQuery;
    ADOsearchKc_code: TWideStringField;
    ADOsearchKc_name: TWideStringField;
    ADOsearchKc_qty1: TFloatField;
    ADOsearchKc_qty2: TFloatField;
    ADOsearchKc_qty3: TFloatField;
    ADOsearchKc_qty4: TIntegerField;
    ADOsearchKc_allqty: TIntegerField;
    ADOsearchKc_money: TFloatField;
    ADOsearchKc_up: TFloatField;
    ADOsearchKc_down: TFloatField;
    ADOsearchfmem: TWideStringField;
    dssearch: TDataSource;
    dxDBGrid1Kc_code: TdxDBGridColumn;
    dxDBGrid1Kc_name: TdxDBGridColumn;
    dxDBGrid1Kc_qty1: TdxDBGridMaskColumn;
    dxDBGrid1Kc_qty2: TdxDBGridMaskColumn;
    dxDBGrid1Kc_qty3: TdxDBGridMaskColumn;
    dxDBGrid1Kc_qty4: TdxDBGridMaskColumn;
    dxDBGrid1Kc_allqty: TdxDBGridMaskColumn;
    dxDBGrid1Kc_money: TdxDBGridMaskColumn;
    dxDBGrid1Kc_up: TdxDBGridMaskColumn;
    dxDBGrid1Kc_down: TdxDBGridMaskColumn;
    ADOsearchKc_cbprice: TFloatField;
    dxDBGrid1Column11: TdxDBGridColumn;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    pm1: TPopupMenu;
    N31: TMenuItem;
    N21: TMenuItem;
    ADOsearchtotalmoney: TFloatField;
    ADOsearchphy_unit: TWideStringField;
    dxDBGrid1Column12: TdxDBGridColumn;
    ADOsearchunit: TStringField;
    procedure actquitExecute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActfindExecute(Sender: TObject);
    procedure actoutExecute(Sender: TObject);
    procedure actprointExecute(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fKC_table: TfKC_table;

implementation

uses dataform, kc_find, pubdata;

{$R *.dfm}

procedure TfKC_table.actquitExecute(Sender: TObject);
begin
  inherited;
Close;
end;

procedure TfKC_table.SpeedButton1Click(Sender: TObject);
begin
  inherited;
fkc_find:=Tfkc_find.Create(Self);
fkc_find.ShowModal;
end;

procedure TfKC_table.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
action:=caFree;
end;

procedure TfKC_table.ActfindExecute(Sender: TObject);
begin
  inherited;
fkc_find:=Tfkc_find.Create(Self);
fkc_find.ShowModal;
end;

procedure TfKC_table.actoutExecute(Sender: TObject);
begin
  inherited;
//导出
  fdata.dlgSave.Filter := 'Microsoft Excel Workbook (*.xls)|*.XLS|xml(*.xml)|*.xml|HTML file (*.htm)|*.HTM';
  fdata.dlgSave.DefaultExt:='xls';
  fdata.dlgSave.FileName := FormatDateTime('YYYY-MM-DD',Date());
  if fdata.dlgSave.Execute then
    begin
      case fdata.dlgSave.FilterIndex of
        1: dxDBGrid1.SaveToxls(fdata.dlgSave.FileName,True);
        2: dxDBGrid1.SaveToXML(fdata.dlgSave.FileName,true);
        3: dxDBGrid1.SaveToHTML(fdata.dlgSave.FileName,true);
      end;
    end;
  MessageBox(0, '导出完毕！', '提示', MB_OK + MB_ICONINFORMATION + MB_TOPMOST);

end;

procedure TfKC_table.actprointExecute(Sender: TObject);
begin
  inherited;
pm1.Popup(Left+SpeedButton5.Left+200,top+SpeedButton5.Top+150);

end;

procedure TfKC_table.N31Click(Sender: TObject);
begin
  inherited;
frReport1.LoadFromFile('report\'+Caption+'.frf');
frReport1.ShowReport;  
end;

procedure TfKC_table.N21Click(Sender: TObject);
begin
  inherited;
frReport1.LoadFromFile('report\'+Caption+'.frf');
frReport1.DesignReport;
end;

end.