📄 xygz_js_pas.pas

📁 不错啊
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit xygz_js_pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pub_frm_pas, ImgList, StdCtrls, ComCtrls, ToolWin, ExtCtrls,
  Grids, DBGrids,DateUtils, ppClass, daDataView, daQueryDataView, daADO,
  ppModule, daDataModule, ppBands, ppCache, ppComm, ppRelatv, ppProd,
  ppReport, QRCtrls, QuickRpt;

type
  Txygz_js = class(Tpub_frm)
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Panel4: TPanel;
    Panel5: TPanel;
    ListBox1: TListBox;
    Panel6: TPanel;
    Panel7: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Panel8: TPanel;
    Splitter2: TSplitter;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    ColumnHeaderBand1: TQRBand;
    QRLabel8: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure sj_lr(nf,yf:integer;ks:string;js_mark:boolean);
    procedure sj_data_post(nf,yf:integer;ks:string);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ref_screen;
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xygz_js: Txygz_js;

implementation
  uses
    main_dm_pas,ks_sr_cx_pas,ks_zc_cx_pas;
  var
    main_dm:Tmain_dm;
{$R *.dfm}
procedure Txygz_js.ref_screen;
begin
//用于刷新屏幕
if listbox1.ItemIndex =0 then
 begin
    main_dm.adq1.Close;
    main_dm.adq1.SQL.Clear;
    main_dm.adq1.SQL.Add('select nf as 年份,yf as 月份,ks as 科室,mark as 标记,num as 金额,xmmc as 项目名称,id as 编号');
    main_dm.adq1.SQL.Add('from fyjsb where nf='+combobox1.Items[combobox1.itemindex]+' and yf=' );
    main_dm.adq1.SQL.Add(combobox2.Items[combobox2.itemindex]+' and mark=1');
    main_dm.adq1.Prepared;
    main_dm.adq1.Open;
    main_dm.DataSource1.DataSet :=main_dm.adq1 ;
    dbgrid2.DataSource :=main_dm.DataSource1 ;

    main_dm.adq2.Close;
    main_dm.adq2.SQL.Clear;
    main_dm.adq2.SQL.Add('select nf as 年份,yf as 月份,ks as 科室,mark as 标记,num as 金额,xmmc as 项目名称,id as 编号');
    main_dm.adq2.SQL.Add('from fyjsb where nf='+combobox1.Items[combobox1.itemindex]+' and yf=' );
    main_dm.adq2.SQL.Add(combobox2.Items[combobox2.itemindex]+' and mark=0');
    main_dm.adq2.Prepared;
    main_dm.adq2.Open;
    main_dm.DataSource2.DataSet :=main_dm.adq2 ;
    dbgrid3.DataSource :=main_dm.DataSource2 ;

    main_dm.adq3.Close;
    main_dm.adq3.SQL.Clear;
    main_dm.adq3.SQL.Add('select nf as 年份,yf as 月份,ks as 科室,srhj as 收入合计,zchj as 支出合计,zsje as 正式人员效益,htje as 合同人员效益,kskfpje as 科室效益总额,(htry+zsry) as 人员合计,fpbl as 分配比率');
    main_dm.adq3.SQL.Add('from xyjsb where nf='+combobox1.Items[combobox1.itemindex]+' and yf=' );
    main_dm.adq3.SQL.Add(combobox2.Items[combobox2.itemindex]);
    main_dm.adq3.Prepared;
    main_dm.adq3.Open;
    main_dm.DataSource3.DataSet :=main_dm.adq3 ;
    dbgrid1.DataSource :=main_dm.DataSource3 ;
 end
 else
 begin
    main_dm.adq1.Close;
    main_dm.adq1.SQL.Clear;
    main_dm.adq1.SQL.Add('select nf as 年份,yf as 月份,ks as 科室,mark as 标记,num as 金额,xmmc as 项目名称,id as 编号');
    main_dm.adq1.SQL.Add('from fyjsb where nf='+combobox1.Items[combobox1.itemindex]+' and yf=' );
    main_dm.adq1.SQL.Add(combobox2.Items[combobox2.itemindex]+' and mark=1'+' and ks='+#39+listbox1.Items[listbox1.itemindex]+#39  );
    main_dm.adq1.Prepared;
    main_dm.adq1.Open;
    main_dm.DataSource1.DataSet :=main_dm.adq1 ;
    dbgrid2.DataSource :=main_dm.DataSource1 ;

    main_dm.adq2.Close;
    main_dm.adq2.SQL.Clear;
    main_dm.adq2.SQL.Add('select nf as 年份,yf as 月份,ks as 科室,mark as 标记,num as 金额,xmmc as 项目名称,id as 编号');
    main_dm.adq2.SQL.Add('from fyjsb where nf='+combobox1.Items[combobox1.itemindex]+' and yf=' );
    main_dm.adq2.SQL.Add(combobox2.Items[combobox2.itemindex]+' and mark=0'+' and ks='+#39+listbox1.Items[listbox1.itemindex]+#39);
    main_dm.adq2.Prepared;
    main_dm.adq2.Open;
    main_dm.DataSource2.DataSet :=main_dm.adq2 ;
    dbgrid3.DataSource :=main_dm.DataSource2 ;

    main_dm.adq3.Close;
    main_dm.adq3.SQL.Clear;
    main_dm.adq3.SQL.Add('select nf as 年份,yf as 月份,ks as 科室,srhj as 收入合计,zchj as 支出合计,zsje as 正式人员效益,htje as 合同人员效益,kskfpje as 科室效益总额,(htry+zsry) as 人员合计,fpbl as 分配比率');
    main_dm.adq3.SQL.Add('from xyjsb where nf='+combobox1.Items[combobox1.itemindex]+' and yf=' );
    main_dm.adq3.SQL.Add(combobox2.Items[combobox2.itemindex]+' and ks='+#39+listbox1.Items[listbox1.itemindex]+#39);
    main_dm.adq3.Prepared;
    main_dm.adq3.Open;
    main_dm.DataSource3.DataSet :=main_dm.adq3 ;
    dbgrid1.DataSource :=main_dm.DataSource3 ;

 end;
 dbgrid1.Columns[2].Width :=90;
 dbgrid2.Columns[2].Width :=90;
 dbgrid3.Columns[2].Width :=90;
end;

procedure Txygz_js.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  main_dm:=Tmain_dm.Create(self);
  main_dm.gz.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'gzgl.mdb;Persist Security Info=False';
  listbox1.Clear;
  main_dm.adq1.close;
  main_dm.adq1.SQL.Clear;
  main_dm.adq1.SQL.Add('select ksname from ksryb group by ksname order by ksname');
  main_dm.adq1.Prepared;
  main_dm.adq1.Open;
  listbox1.Items.Add('<全部>'); 
  while not main_dm.adq1.Eof do
  begin
    listbox1.Items.Add(main_dm.adq1.FieldValues['ksname']);
    main_dm.adq1.Next;
  end;
  listbox1.ItemIndex :=0;
  with main_dm do
  begin
    adq1.Close;
    adq1.SQL.clear;
    adq1.SQL.Add('SELECT nf from system_jzq group by nf');
    adq1.Prepared;
    adq1.Open;
    combobox1.Items.Clear;
    for i:=0 to adq1.RecordCount -1 do
      begin
        combobox1.Items.Add(inttostr(adq1.FieldValues ['nf']));
        adq1.Next;
        if strtoint(combobox1.Items[i])=yearof(now) then
          combobox1.ItemIndex :=i;
      end;
    combobox2.ItemIndex :=monthof(now)-1;
  end;
  //将当前已存在的数据更新入DBGRID1中
  ref_screen;
end;

procedure Txygz_js.FormDestroy(Sender: TObject);
begin
  inherited;
  main_dm.Free;
end;

procedure Txygz_js.ToolButton7Click(Sender: TObject);
var
  ks_sr_cx:Tks_sr_cx;
begin
  inherited;
  ks_sr_cx:=Tks_sr_cx.Create(xygz_js);
  ks_sr_cx.ShowModal ;
  ks_sr_cx.Free;
end;

procedure Txygz_js.ToolButton8Click(Sender: TObject);
var
  ks_zc_cx:Tks_zc_cx;
begin
  inherited;
  ks_zc_cx:=Tks_zc_cx.Create(xygz_js);
  ks_zc_cx.ShowModal ;
  ks_zc_cx.Free;
end;

procedure Txygz_js.sj_data_post(nf,yf:integer;ks:string);
var
  a_calc,b_calc:real;
  a_test:boolean;
begin
//实际向数据表中录入数据
//对表中的数据进行挨个字段的添充
 with main_dm do
 begin
   adq6.Close;
   adq6.SQL.Clear;
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -