finace.pas

来自「一个非常好的桑拿浴管理系统」· PAS 代码 · 共 2,024 行 · 第 1/5 页

PAS
2,024 行
字号
12345
  try
    FrmSGGRSFR := TFrmSGGRSFR.Create(Application);

    FrmSGGRSFR.Prepare;
    FrmSGGRSFR.QRLabel21.Caption := '/'+intToStr(FrmSGGRSFR.QRPrinter.PageCount); //总页码数
    FrmSGGRSFR.QRLabel20.Caption := sny_title1; //公司名称
    FrmSGGRSFR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmSGGRSFR.QRLabel19.Caption := sny_user; //打印人

    FrmSGGRSFR.Preview ;
  finally
    FrmSGGRSFR.Free;
  end;

  try
    FrmSGQTSFR := TFrmSGQTSFR.Create(Application);

    FrmSGQTSFR.Prepare;
    FrmSGQTSFR.QRLabel21.Caption := '/'+intToStr(FrmSGQTSFR.QRPrinter.PageCount); //总页码数
    FrmSGQTSFR.QRLabel20.Caption := sny_title1; //公司名称
    FrmSGQTSFR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmSGQTSFR.QRLabel19.Caption := sny_user; //打印人

    FrmSGQTSFR.Preview ;
  finally
    FrmSGQTSFR.Free;
  end;

  try
    FrmSGGRSFNOR := TFrmSGGRSFNOR.Create(Application);

    FrmSGGRSFNOR.Prepare;
    FrmSGGRSFNOR.QRLabel21.Caption := '/'+intToStr(FrmSGGRSFNOR.QRPrinter.PageCount); //总页码数
    FrmSGGRSFNOR.QRLabel20.Caption := sny_title1; //公司名称
    FrmSGGRSFNOR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmSGGRSFNOR.QRLabel19.Caption := sny_user; //打印人

    FrmSGGRSFNOR.Preview ;
  finally
    FrmSGGRSFNOR.Free;
  end;

end;

procedure Tfm_finace.BitBtn12Click(Sender: TObject);
begin
  try
    FrmLSMXR := TFrmLSMXR.Create(Application);

    FrmLSMXR.Prepare;
    FrmLSMXR.QRLabel21.Caption := '/'+intToStr(FrmLSMXR.QRPrinter.PageCount); //总页码数
    FrmLSMXR.QRLabel20.Caption := sny_title1; //公司名称
    FrmLSMXR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmLSMXR.QRLabel19.Caption := sny_user; //打印人


    FrmLSMXR.Preview ;
  finally
    FrmLSMXR.Free;
  end;
end;

procedure Tfm_finace.BitBtn10Click(Sender: TObject);
begin
  try
    FrmSGRTJR := TFrmSGRTJR.Create(Application);

    FrmSGRTJR.Prepare;
    FrmSGRTJR.QRLabel21.Caption := '/'+intToStr(FrmSGRTJR.QRPrinter.PageCount); //总页码数
    FrmSGRTJR.QRLabel20.Caption := sny_title1; //公司名称
    FrmSGRTJR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmSGRTJR.QRLabel19.Caption := sny_user; //打印人

    FrmSGRTJR.Preview ;
  finally
    FrmSGRTJR.Free;
  end;
end;

procedure Tfm_finace.BitBtn11Click(Sender: TObject);
begin
  try
    FrmSGSZWPR := TFrmSGSZWPR.Create(Application);

    FrmSGSZWPR.Prepare;
    FrmSGSZWPR.QRLabel21.Caption := '/'+intToStr(FrmSGSZWPR.QRPrinter.PageCount); //总页码数
    FrmSGSZWPR.QRLabel20.Caption := sny_title1; //公司名称
    FrmSGSZWPR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmSGSZWPR.QRLabel19.Caption := sny_user; //打印人

    FrmSGSZWPR.Preview ;
  finally
    FrmSGSZWPR.Free;
  end;

  try
    FrmSGSZFWR := TFrmSGSZFWR.Create(Application);

    FrmSGSZFWR.Prepare;
    FrmSGSZFWR.QRLabel21.Caption := '/'+intToStr(FrmSGSZFWR.QRPrinter.PageCount); //总页码数
    FrmSGSZFWR.QRLabel20.Caption := sny_title1; //公司名称
    FrmSGSZFWR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmSGSZFWR.QRLabel19.Caption := sny_user; //打印人

    FrmSGSZFWR.Preview ;
  finally
    FrmSGSZFWR.Free;
  end;

  try
    FrmSGSZXYR := TFrmSGSZXYR.Create(Application);

    FrmSGSZXYR.Prepare;
    FrmSGSZXYR.QRLabel21.Caption := '/'+intToStr(FrmSGSZXYR.QRPrinter.PageCount); //总页码数
    FrmSGSZXYR.QRLabel20.Caption := sny_title1; //公司名称
    FrmSGSZXYR.QRLabel17.Caption := formatDateTime('yyyy-mm-dd',date); //打印时间
    FrmSGSZXYR.QRLabel19.Caption := sny_user; //打印人

    FrmSGSZXYR.Preview ;
  finally
    FrmSGSZXYR.Free;
  end;
end;

procedure Tfm_finace.FormShow(Sender: TObject);
begin
  with aqr_sys do
    begin
        Close ;
        SQL.Clear ;
        SQL.Add('SELECT craftsman_name,craftsman_serial FROM sny_craftsman');
        Open ;
        While not Eof do
        begin
            cbx_user.Items.Add(FieldByName('craftsman_name').AsString);
            CoxID.Items.Add(FieldByName('craftsman_serial').AsString);
            Next ;
        end ;
        cbx_user.ItemIndex := 0 ;
        CoxID.ItemIndex := 0 ;
    end ;
    with aqr_sys do
    begin
        Close ;
        SQL.Clear ;
        SQL.Add('SELECT arrea_cor FROM sny_arrearage');
        Open ;
        While not Eof do
        begin
            cbx_fkc_name.Items.Add(FieldByName('arrea_cor').AsString);
            //CoxNO.Items.Add(FieldByName('arre_group_num').AsString);
            Next ;
        end ;
        cbx_fkc_name.ItemIndex := 0 ;
        //CoxNO.ItemIndex := 0 ;
    end ;



end;

procedure Tfm_finace.SGWPMXDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGWPMX do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGWPMX,Rect,'c',SGWPMX.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGWPMX,Rect,'r',SGWPMX.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGWPMX,Rect,'l',SGWPMX.Cells[ACol,ARow]);


  end;
end;

procedure Tfm_finace.SGFWMXDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGFWMX do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGFWMX,Rect,'c',SGFWMX.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGFWMX,Rect,'r',SGFWMX.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGFWMX,Rect,'l',SGFWMX.Cells[ACol,ARow]);

  end;
end;

procedure Tfm_finace.SGLSPDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGLSP do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGLSP,Rect,'c',SGLSP.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGLSP,Rect,'r',SGLSP.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGLSP,Rect,'l',SGLSP.Cells[ACol,ARow]) ;
  end;
end;

procedure Tfm_finace.SGYPDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGYP do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGYP,Rect,'c',SGYP.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGYP,Rect,'r',SGYP.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGYP,Rect,'l',SGYP.Cells[ACol,ARow]);
  end;
end;

procedure Tfm_finace.SGCSXMXDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGCSXMX do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGCSXMX,Rect,'c',SGCSXMX.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGCSXMX,Rect,'r',SGCSXMX.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGCSXMX,Rect,'l',SGCSXMX.Cells[ACol,ARow]);

  end;
end;

procedure Tfm_finace.SGQTSFDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGQTSF do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGQTSF,Rect,'c',SGQTSF.Cells[ACol,ARow]);
    end
    else
      if ACol in [2,3,4] then
        GRL_SGAlign(SGQTSF,Rect,'r',SGQTSF.Cells[ACol,ARow])
    else
      if ACol in [0,1] then
        GRL_SGAlign(SGQTSF,Rect,'l',SGQTSF.Cells[ACol,ARow]) ;

  end;
end;

procedure Tfm_finace.SGGRSFDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGGRSF do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGGRSF,Rect,'c',SGGRSF.Cells[ACol,ARow]);
    end
    else
      if ACol in [2,3,4] then
        GRL_SGAlign(SGGRSF,Rect,'r',SGGRSF.Cells[ACol,ARow])
    else
      if ACol in [0,1] then
        GRL_SGAlign(SGGRSF,Rect,'l',SGGRSF.Cells[ACol,ARow]) ;

  end;
end;

procedure Tfm_finace.SGGRSFNODrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGGRSFNO do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGGRSFNO,Rect,'c',SGGRSFNO.Cells[ACol,ARow]);
    end
    else
      if ACol in [2,3,4] then
        GRL_SGAlign(SGGRSFNO,Rect,'r',SGGRSFNO.Cells[ACol,ARow])
    else
      if ACol in [0,1] then
        GRL_SGAlign(SGGRSFNO,Rect,'l',SGGRSFNO.Cells[ACol,ARow]) ;

  end;
end;

procedure Tfm_finace.SGLSMXDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGLSMX do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGLSMX,Rect,'c',SGLSMX.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGLSMX,Rect,'r',SGLSMX.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGLSMX,Rect,'l',SGLSMX.Cells[ACol,ARow]);
  end;

end;
procedure Tfm_finace.SGRTJDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGRTJ do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGRTJ,Rect,'c',SGRTJ.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3,4,5] then
        GRL_SGAlign(SGRTJ,Rect,'r',SGRTJ.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGRTJ,Rect,'c',SGRTJ.Cells[ACol,ARow]) ;

  end;

end;


procedure Tfm_finace.SGSZFWDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGSZFW do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGSZFW,Rect,'c',SGSZFW.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGSZFW,Rect,'r',SGSZFW.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGSZFW,Rect,'l',SGSZFW.Cells[ACol,ARow]);

  end;
end;

procedure Tfm_finace.SGSZWPDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with SGSZWP do
  begin
    if ARow = 0 then
    begin
      Canvas.Font.Color := clBlack;
      GRL_SGAlign(SGSZWP,Rect,'c',SGSZWP.Cells[ACol,ARow]);
    end
    else
      if ACol in [1,2,3] then
        GRL_SGAlign(SGSZWP,Rect,'r',SGSZWP.Cells[ACol,ARow])
    else
      if ACol in [0] then
        GRL_SGAlign(SGSZWP,Rect,'l',SGSZWP.Cells[ACol,ARow]);

  end;
end;

procedure Tfm_finace.DateTimePicker2Change(Sender: TObject);
begin
  if DateTimePicker2.Checked = false then
12345

finace.pas - 源码说明

本页面展示了「一个非常好的桑拿浴管理系统」中的 finace.pas 源码文件，采用 PAS 编程语言编写，共 2,024 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与桑拿浴相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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