📄 jgbbxmjg.pas

📁 公积金监管系统客户端,是新疆公积金监管系统的客户端软件
💻 PAS
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
unit JGBbXmJg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ToolWin, ExtCtrls, OleCtrls, ImgList,Variants,
  Menus, ADODB, OleServer, DBtables, DB, CELLLib_TLB, EncdDecd, Types;

type
  TFormBbXmJg = class(TForm)
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolBar3: TToolBar;
    ComboBox2: TComboBox;
    ComboBox4: TComboBox;
    ToolButton35: TToolButton;
    ToolButton36: TToolButton;
    ToolButton37: TToolButton;
    ToolButton38: TToolButton;
    ToolButton39: TToolButton;
    ToolButton40: TToolButton;
    ToolButton41: TToolButton;
    ToolButton42: TToolButton;
    ToolButton43: TToolButton;
    ToolButton44: TToolButton;
    ToolButton45: TToolButton;
    ToolButton46: TToolButton;
    ToolButton47: TToolButton;
    ToolButton49: TToolButton;
    ToolButton50: TToolButton;
    ToolButton51: TToolButton;
    Cell1: TCell;
    ImageList1: TImageList;
    ImageList3: TImageList;
    ToolButton52: TToolButton;
    ToolButton53: TToolButton;
    ComboBox1: TComboBox;
    ToolButton54: TToolButton;
    ToolButton55: TToolButton;
    ToolButton56: TToolButton;
    ToolButton57: TToolButton;
    ToolButton58: TToolButton;
    ToolButton59: TToolButton;
    ToolButton60: TToolButton;
    ToolButton61: TToolButton;
    ToolButton62: TToolButton;
    ToolButton63: TToolButton;
    ToolButton64: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    C1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    F1: TMenuItem;
    N15: TMenuItem;
    O1: TMenuItem;
    N18: TMenuItem;
    S1: TMenuItem;
    A1: TMenuItem;
    N19: TMenuItem;
    C2: TMenuItem;
    Edit1: TEdit;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    H1: TMenuItem;
    T1: TMenuItem;
    N20: TMenuItem;
    A2: TMenuItem;
    StatusBar1: TStatusBar;
    E1: TMenuItem;
    U1: TMenuItem;
    ReDo1: TMenuItem;
    N21: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    N22: TMenuItem;
    ToolButton27: TToolButton;
    ToolButton28: TToolButton;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    ToolButton34: TToolButton;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure Cell1CellChange(Sender: TObject; oldcol, oldrow, newcol,
      newrow: Integer);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton55Click(Sender: TObject);
    procedure ToolButton57Click(Sender: TObject);
    procedure ToolButton59Click(Sender: TObject);
    procedure ToolButton60Click(Sender: TObject);
    procedure ToolButton61Click(Sender: TObject);
    procedure ToolButton62Click(Sender: TObject);
    procedure ToolButton63Click(Sender: TObject);
    procedure ToolButton64Click(Sender: TObject);
    procedure ToolButton19Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton18Click(Sender: TObject);
    procedure ToolButton40Click(Sender: TObject);
    procedure ToolButton38Click(Sender: TObject);
    procedure ToolButton35Click(Sender: TObject);
    procedure ToolButton25Click(Sender: TObject);
    procedure ToolButton26Click(Sender: TObject);
    procedure ToolButton51Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
    procedure ToolButton28Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton32Click(Sender: TObject);
    procedure ToolButton48Click(Sender: TObject);
  private
    { Private declarations }
    dec_inc:integer;
    activenum:smallint;
  public
    { Public declarations }
    structfilename :string;
    dsbh,bbnum,bbmc:string;
    procedure WMSysCommand(var Msg:TWMSysCommand);

    message WM_SYSCOMMAND;
  end;

var
  FormBbXmJg: TFormBbXmJg;
  Cell_Cols,Cell_Rows,dsbh:string;


implementation

uses datamodule,userface,JgBbSize,JgBbStructIns,JgBbStructDel,JgBbStructRC;

{$R *.DFM}

procedure TFormBbXmJg.FormClose(Sender: TObject; var Action: TCloseAction);
{关闭窗体}
begin
  Action:=CaFree;
  FormBbXmJg.free;
  //bbmain.controlbar1.visible:=true;
end;

procedure TFormBbXmJg.FormCreate(Sender: TObject);
{创建窗体}
begin
  cell1.DoLogin('北京金天鹏软件科技有限公司',363,'00FD18FF080193035CFE09FF9908');
  combobox1.ItemIndex :=1;
  combobox2.ItemIndex :=6;
  combobox4.ItemIndex :=2;
end;




procedure TFormBbXmJg.ToolButton6Click(Sender: TObject);
{预览}
begin
  cell1.DoPrintPreview(true);
end;

procedure TFormBbXmJg.ToolButton5Click(Sender: TObject);
{打印}
begin
  cell1.DoPrint(true);
end;

procedure TFormBbXmJg.N15Click(Sender: TObject);
{新建}
var
  dlgresult:word;
  cfile :widestring;
begin
  dlgresult:=messagedlg('是否要保存报表格式文件？',mtcustom,[mbyes,mbno,mbcancel],0);
  if dlgresult=mrYes then
  begin
    cfile:='';
    if structfilename<>'' then
      cfile:=structfilename
    else
      if savedialog1.Execute then
        cfile:=savedialog1.FileName;
    if cfile<>'' then
    begin
      if cell1.DoSaveFile(cfile)>0 then
      begin
        cell1.DoDeletePage(0,1);
        cell1.DoAppendPage('',0);
        cell1.cols:=6;
        cell1.rows:=20;
        cell1.PageLabelVisible :=false;
      end
      else
        showmessage('存盘失败！')
    end;
  end
  else if dlgresult=mrno then
  begin
    cell1.DoDeletePage(0,1);
    cell1.DoAppendPage('',0);
    cell1.cols:=6;
    cell1.rows:=20;
    cell1.PageLabelVisible :=false;
  end;
end;

procedure TFormBbXmJg.N14Click(Sender: TObject);
{页面设置}
begin
  cell1.DoPrintPageSetup;
end;

procedure TFormBbXmJg.ToolButton2Click(Sender: TObject);
{打开}
begin
  if opendialog1.Execute then
     cell1.DoOpenFile(opendialog1.filename);
end;

procedure TFormBbXmJg.ToolButton3Click(Sender: TObject);
{保存}
var
  i,k,l:smallint;
  //ass: TStringStream;
  ams: TMemoryStream;
  v: TByteDynArray;
begin
  k := cell1.DoSaveFile(structfilename);
  ams:= TMemoryStream.Create;
  //ass:= TStringStream.Create('');
  try
    ams.LoadFromFile(structfilename);
    i:= ams.Size;
    setlength(v,i);
    move(ams.memory^,v[0],i);
    l:= DM.f_BbSav(bbnum,v);
  finally
    ams.Free;
  end;
  if  (k > 0) and (l =0) then
    showmessage('报表：'+bbmc+' 保存成功。')
  else if k > 0 then
    showmessage('报表：'+bbmc+' 本地保存成功，但未能存入数据库！')
  else
    showmessage('存盘失败！');
end;

procedure TFormBbXmJg.A1Click(Sender: TObject);
{另存为}
var
  cfile :widestring;
begin
  if savedialog1.Execute then
  begin
    cfile:=savedialog1.FileName;
    if cfile<>'' then
    begin
       if cell1.DoSaveFile(cfile)>0 then
          showmessage('保存文件'+cfile+'成功。')
       else
          showmessage('存盘失败！')
    end;
  end;
end;

procedure TFormBbXmJg.C2Click(Sender: TObject);
{关闭}
begin
  close;
end;

procedure TFormBbXmJg.ToolButton11Click(Sender: TObject);
{恢复}
begin
  cell1.DoUndo;
end;

procedure TFormBbXmJg.ToolButton12Click(Sender: TObject);
{重复}
begin
  cell1.doredo;
end;

procedure TFormBbXmJg.ToolButton9Click(Sender: TObject);
{复制}
begin
  cell1.DoCopySelected;
end;

procedure TFormBbXmJg.ToolButton8Click(Sender: TObject);
{剪切}
begin
  Cell1.DoCutSelected;
end;

procedure TFormBbXmJg.Cell1CellChange(Sender: TObject; oldcol, oldrow,
  newcol, newrow: Integer);
{移动cell光标}
var
  cPos:string;
  nInt:integer;
  f_size,f_style,f_name:olevariant;
  c_commas,c_percent,c_decimals,c_currency,c_unit,c_minus,c_scientific:olevariant;
begin
  //坐标位置
  cPos:=CellSwapPositionStr(newcol,newrow);
  edit1.Text :=cPos;
  //折行显示
  nInt:=Cell1.DoGetCellTextStyle(newcol,newrow);
  if nInt=1 then Toolbutton38.Down :=True
  else Toolbutton38.Down :=False;
  //字体
  if cell1.DoGetCellFont(newcol,newrow,f_size,f_style,f_name)=1 then //成功
  begin
    combobox2.Text:=f_name;
    Combobox4.Text:=inttostr(f_size);
    Toolbutton35.Down :=False;
    Toolbutton36.Down :=False;
    Toolbutton37.Down :=False;
    Case f_style of
      1: Toolbutton35.Down :=True;
      2: Toolbutton36.Down :=True;
      3: Toolbutton37.Down :=True;
      4: begin
           Toolbutton35.Down :=True;
           Toolbutton36.Down :=True;
         end;
      5: begin
           Toolbutton35.Down :=True;
           Toolbutton37.Down :=True;
         end;
      6: begin
           Toolbutton36.Down :=True;
           Toolbutton37.Down :=True;
         end;
      7: begin
           Toolbutton35.Down :=True;
           Toolbutton36.Down :=True;
           Toolbutton37.Down :=True;
         end;
    end;
  end
  else //取字体不成功设置成默认值
  begin
    combobox2.Text:='宋体';
    Combobox4.Text:='10';
    Toolbutton35.Down :=False;
    Toolbutton36.Down :=False;
    Toolbutton37.Down :=False;
  end;
  //对齐方式
  nInt:=Cell1.DoGetCellAlignment(newcol,newrow);
  Toolbutton40.Down :=False;
  Toolbutton41.Down :=False;
  Toolbutton42.Down :=False;
  Toolbutton44.Down :=False;
  Toolbutton45.Down :=False;
  Toolbutton46.Down :=False;
  Case nInt of
    1 : Toolbutton40.Down :=True; //左
    2 : Toolbutton42.Down :=True; //右
    4 : Toolbutton41.Down :=True; //水中
    8 : Toolbutton44.Down :=True; //上
    9 : begin                     //上、左
          Toolbutton40.Down :=True;
          Toolbutton44.Down :=True;
        end;
    10: begin                     //上、右
          Toolbutton42.Down :=True;
          Toolbutton44.Down :=True;
        end;
    12: begin                     //上、水平中
          Toolbutton41.Down :=True;
          Toolbutton44.Down :=True;
        end;
    16: Toolbutton46.Down :=True; //下
    17: begin                     //下、左
          Toolbutton40.Down :=True;
          Toolbutton46.Down :=True;
        end;
    18: begin                     //下、右
          Toolbutton42.Down :=True;
          Toolbutton46.Down :=True;
        end;
    20: begin                     //下、水平中
12 3 下一页
💿 文件大小 679 K
👤 上传用户 vicegle
📂 所属分类金融证券系统
🏷️ 相关标签

#监管系统 #软件
⌨️ 快捷键说明

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