main_unit.pas

医药管理系统Delphi源代码

unit main_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls,cxPC, cxControls, StdCtrls,
  dxCore, dxButtons, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,cxGrid,data_unit, cxTextEdit, cxCurrencyEdit,
  cxContainer, cxMaskEdit, cxDropDownEdit, SUIButton, cxSpinEdit,
  cxCheckBox, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxGridCustomView, Menus, XPMenu, cxDBLookupComboBox, cxCalendar,
  LbSpeedButton, RzPanel, RzSplit;

type
  Tmain_form = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Panel2: TPanel;
    mainpage: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    gd_grid_tab: TcxGridDBTableView;
    gd_grid_leve: TcxGridLevel;
    gd_grid: TcxGrid;
    Panel4: TPanel;
    Label6: TLabel;
    main_gm: TLabel;
    dxButton1: TdxButton;
    StaticText1: TStaticText;
    gd_grid_tabadd_cd_name: TcxGridDBColumn;
    gd_grid_tabyp_name: TcxGridDBColumn;
    gd_grid_tabyp_gg: TcxGridDBColumn;
    gd_grid_tabyp_ph: TcxGridDBColumn;
    gd_grid_tabyp_dw: TcxGridDBColumn;
    gd_grid_tabyp_ysq: TcxGridDBColumn;
    gd_grid_tabyp_sysl: TcxGridDBColumn;
    gd_grid_tabyp_lsdj: TcxGridDBColumn;
    gd_grid_tabyp_pfdj: TcxGridDBColumn;
    Panel3: TPanel;
    main_lab2: TLabel;
    dxButton2: TdxButton;
    findyp_com: TcxComboBox;
    Label1: TLabel;
    find_edit: TcxTextEdit;
    pf_check: TsuiCheckBox;
    gmsl_edit: TcxSpinEdit;
    dj_edit: TcxTextEdit;
    Panel5: TPanel;
    yp_grid: TcxGrid;
    yp_grid_tab: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridDBColumn10: TcxGridDBColumn;
    cxGridDBColumn11: TcxGridDBColumn;
    yp_grid_leve: TcxGridLevel;
    Panel6: TPanel;
    Panel7: TPanel;
    Label2: TLabel;
    admin_lab: TLabel;
    Label4: TLabel;
    gdxx_l: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    main_money: TLabel;
    Label10: TLabel;
    dxButton3: TdxButton;
    dxButton4: TdxButton;
    dxButton5: TdxButton;
    dxButton6: TdxButton;
    print_check: TsuiCheckBox;
    gd_grid_tabDBColumn1: TcxGridDBColumn;
    gd_grid_tabDBColumn2: TcxGridDBColumn;
    PopupMenu1: TPopupMenu;
    N12: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    N11: TMenuItem;
    PopupMenu2: TPopupMenu;
    N8: TMenuItem;
    N14: TMenuItem;
    PopupMenu3: TPopupMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    PopupMenu4: TPopupMenu;
    MenuItem2: TMenuItem;
    MenuItem1: TMenuItem;
    PopupMenu5: TPopupMenu;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    PopupMenu6: TPopupMenu;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    N6: TMenuItem;
    XPMenu1: TXPMenu;
    cxTabSheet2: TcxTabSheet;
    N1: TMenuItem;
    RzSizePanel1: TRzSizePanel;
    LbSpeedButton16: TLbSpeedButton;
    Panel136: TPanel;
    LbSpeedButton17: TLbSpeedButton;
    Panel137: TPanel;
    LbSpeedButton18: TLbSpeedButton;
    Panel138: TPanel;
    LbSpeedButton19: TLbSpeedButton;
    Panel139: TPanel;
    LbSpeedButton20: TLbSpeedButton;
    dd_grid: TcxGrid;
    dd_grid_tab: TcxGridDBTableView;
    dd_grid_leve: TcxGridLevel;
    dd_grid_tabyp_name: TcxGridDBColumn;
    dd_grid_tabyp_bh: TcxGridDBColumn;
    dd_grid_tabyp_gg: TcxGridDBColumn;
    dd_grid_tabyp_ph: TcxGridDBColumn;
    dd_grid_tabyp_dw: TcxGridDBColumn;
    dd_grid_tabyp_ysq: TcxGridDBColumn;
    dd_grid_tabyp_sysl: TcxGridDBColumn;
    dd_grid_tabyp_zhdj: TcxGridDBColumn;
    dd_grid_tabyp_pfdj: TcxGridDBColumn;
    dd_grid_tabyp_lsdj: TcxGridDBColumn;
    dd_grid_tabyp_zhrq: TcxGridDBColumn;
    dd_grid_tabaddd_cdd: TcxGridDBColumn;
    cxTabSheet3: TcxTabSheet;
    kc_grid: TcxGrid;
    kc_grid_tab: TcxGridDBTableView;
    kc_grid_leve: TcxGridLevel;
    RzSizePanel2: TRzSizePanel;
    LbSpeedButton1: TLbSpeedButton;
    Panel8: TPanel;
    LbSpeedButton2: TLbSpeedButton;
    Panel9: TPanel;
    LbSpeedButton3: TLbSpeedButton;
    Panel10: TPanel;
    LbSpeedButton4: TLbSpeedButton;
    Panel11: TPanel;
    LbSpeedButton5: TLbSpeedButton;
    cxTabSheet4: TcxTabSheet;
    cd_grid: TcxGrid;
    cd_grid_tab: TcxGridDBTableView;
    cd_grid_leve: TcxGridLevel;
    RzSizePanel3: TRzSizePanel;
    LbSpeedButton6: TLbSpeedButton;
    Panel12: TPanel;
    LbSpeedButton7: TLbSpeedButton;
    Panel13: TPanel;
    LbSpeedButton8: TLbSpeedButton;
    Panel14: TPanel;
    LbSpeedButton9: TLbSpeedButton;
    cd_grid_tabcd_id: TcxGridDBColumn;
    cd_grid_tabcd_name: TcxGridDBColumn;
    kc_grid_tabyp_name: TcxGridDBColumn;
    kc_grid_tabyp_cd: TcxGridDBColumn;
    kc_grid_tabyp_bh: TcxGridDBColumn;
    kc_grid_tabyp_gg: TcxGridDBColumn;
    kc_grid_tabyp_ph: TcxGridDBColumn;
    kc_grid_tabyp_dw: TcxGridDBColumn;
    kc_grid_tabyp_ysq: TcxGridDBColumn;
    kc_grid_tabyp_sysl: TcxGridDBColumn;
    kc_grid_tabyp_zhdj: TcxGridDBColumn;
    kc_grid_tabyp_pfdj: TcxGridDBColumn;
    kc_grid_tabyp_lsdj: TcxGridDBColumn;
    kc_grid_tabyp_zhrq: TcxGridDBColumn;
    kc_grid_tabyp_zhr: TcxGridDBColumn;
    find_btn: TLbSpeedButton;
    fullcheck: TsuiCheckBox;
    Panel15: TPanel;
    xl_text: TcxSpinEdit;
    findtj_com: TcxComboBox;
    ysq_text: TcxDateEdit;
    ycorbh_text: TcxTextEdit;
    Label3: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    fullmoney: TLabel;
    N2: TMenuItem;
    N3: TMenuItem;
    cxTabSheet5: TcxTabSheet;
    RzSizePanel4: TRzSizePanel;
    LbSpeedButton10: TLbSpeedButton;
    Panel18: TPanel;
    LbSpeedButton13: TLbSpeedButton;
    dd_grid_tabyp_zhdw: TcxGridDBColumn;
    b_date: TcxDateEdit;
    e_date: TcxDateEdit;
    LbSpeedButton11: TLbSpeedButton;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    LbSpeedButton14: TLbSpeedButton;
    StaticText4: TStaticText;
    dz_text: TcxTextEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    zj_text: TLabel;
    cb_text: TLabel;
    sr_text: TLabel;
    Label15: TLabel;
    lsjl_grid: TcxGrid;
    lsjl_grid_tab: TcxGridDBTableView;
    lsjl_grid_leve: TcxGridLevel;
    lsjl_grid_tabbs_dj: TcxGridDBColumn;
    lsjl_grid_tabbs_yp_jj: TcxGridDBColumn;
    lsjl_grid_tabbs_sl: TcxGridDBColumn;
    lsjl_grid_tabbs_money: TcxGridDBColumn;
    lsjl_grid_tabbs_rq: TcxGridDBColumn;
    lsjl_grid_tabbs_ren: TcxGridDBColumn;
    lsjl_grid_tabbs_yp_pf: TcxGridDBColumn;
    lsjl_grid_tabbs_yp_dw: TcxGridDBColumn;
    lsjl_grid_tabbs_yp_zhdw: TcxGridDBColumn;
    lsjl_grid_tabbs_dzid: TcxGridDBColumn;
    lsjl_grid_tabbs_yp_name: TcxGridDBColumn;
    lsjl_grid_tabbs_yp_cd: TcxGridDBColumn;
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure dxButton2Click(Sender: TObject);
    procedure find_editKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure pf_checkClick(Sender: TObject);
    procedure dxButton1Click(Sender: TObject);
    procedure dxButton4Click(Sender: TObject);
    procedure dxButton3Click(Sender: TObject);
    procedure dxButton6Click(Sender: TObject);
    procedure dxButton5Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure LbSpeedButton17Click(Sender: TObject);
    procedure LbSpeedButton18Click(Sender: TObject);
    procedure LbSpeedButton16Click(Sender: TObject);
    procedure LbSpeedButton19Click(Sender: TObject);
    procedure LbSpeedButton20Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure LbSpeedButton7Click(Sender: TObject);
    procedure LbSpeedButton8Click(Sender: TObject);
    procedure LbSpeedButton9Click(Sender: TObject);
    procedure LbSpeedButton6Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure cxTabSheet3Hide(Sender: TObject);
    procedure cxTabSheet4Hide(Sender: TObject);
    procedure LbSpeedButton2Click(Sender: TObject);
    procedure LbSpeedButton3Click(Sender: TObject);
    procedure LbSpeedButton4Click(Sender: TObject);
    procedure LbSpeedButton1Click(Sender: TObject);
    procedure LbSpeedButton5Click(Sender: TObject);
    procedure cxTabSheet2Hide(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure fullyp_checkClick(Sender: TObject);
    procedure nofull_checkClick(Sender: TObject);
    procedure fullcheckClick(Sender: TObject);
    procedure findtj_comClick(Sender: TObject);
    procedure find_btnClick(Sender: TObject);
    procedure ysq_textKeyPress(Sender: TObject; var Key: Char);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure cxTabSheet5Hide(Sender: TObject);
    procedure LbSpeedButton13Click(Sender: TObject);
    procedure LbSpeedButton10Click(Sender: TObject);
    procedure LbSpeedButton14Click(Sender: TObject);
    procedure LbSpeedButton11Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_form: Tmain_form;
implementation

uses dl_unit, modipass_unit;

{$R *.dfm}

procedure Tmain_form.FormShow(Sender: TObject);
begin
dl_form.ShowModal;
mainpage.HideTabs :=true;
findyp_com.ItemIndex :=0;

data_form.cdtable.Active :=false;
data_form.cdtable.CommandText :='select * from cdtable';
data_form.cdtable.Active :=true;

data_form.yptable.Active :=false;
data_form.yptable.CommandText :='select * from yptable';
data_form.yptable.Active :=true;

data_form.gdtable.Active :=false;
data_form.gdtable.CommandText :='select * from gdtable';
data_form.gdtable.Active :=true;

data_form.tempquery.Active :=false;
data_form.tempquery.SQL.Text :='select sum(gd_yp_money) from gdtable';
data_form.tempquery.Active :=true;
main_money.Caption :=floattostr(data_form.tempquery.Fields[0].AsFloat);
gdxx_l.Caption :=inttostr(data_form.gdtable.RecordCount);
data_form.tempquery.Active :=false;

end;

procedure Tmain_form.Image2Click(Sender: TObject);
begin
PopupMenu1.Popup(image2.Left+20,85);
end;

procedure Tmain_form.Image3Click(Sender: TObject);
begin
PopupMenu2.Popup(image3.Left+20,85);
end;

procedure Tmain_form.Image4Click(Sender: TObject);
begin
PopupMenu4.Popup(image4.Left+20,85);