main.pas

这是一个信息处理系统的功能选单,包括了基础信息录入处理输出的整个过程

unit MAIN;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, ImgList, ComCtrls, ToolWin, ExtCtrls,DBtables,DBClient,
  Db;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N5: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    j1: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ToolButton9: TToolButton;
    PopupMenu1: TPopupMenu;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    ToolButton10: TToolButton;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    ToolButton11: TToolButton;
    Label1: TLabel;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N011: TMenuItem;
    ToolButton12: TToolButton;
    Label4: TLabel;
    N57: TMenuItem;
    N58: TMenuItem;
    N52: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N37: TMenuItem;
    N53: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    SaveDialog1: TSaveDialog;
    Query1: TQuery;
    N62: TMenuItem;
    OpenDialog1: TOpenDialog;
    N63: TMenuItem;
    N65: TMenuItem;
    N67: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    Query2: TQuery;
    N72: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure j1Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N011Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
//    procedure N31Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;
 // function  pGetReqNo(query:Tquery;sTableName:string;RetryTimes:integer; var sNo:String):Boolean;
  procedure Addcombobox(Scombobox:Tcombobox;Stable:TTable;Sfield:string;I:integer);
  procedure inittemptable(Stabtmp:TClientdataset;Vcishu:Integer);
  procedure testcx(Scx:String;Scombobox:Tcombobox;query_cx:Tquery);
  Procedure AddS(Var sAdd:String;iAdd:integer);
  Function CleanBlank(sWantClean :String):String;
  Procedure AddErrorSQL();
  procedure changweek(Sform:Tform;Spdt:TdatetimePicker;Lab:TLabel);
  procedure ClearTemptable(Stabtmp:TClientdataset);
  procedure ShowMbx(SText:string);
  function testdate(Sdate:Tdatetime;Sdate1:Tdatetime):Boolean;
//  function   pAddS(var sAdd:string;iAdd:integer):Boolean;

var
  frmMain: TfrmMain;
  iPaperNumLen:integer;
  bInEdit:Boolean;
  sCPaperNum:String;
  sCWHead,sCWItem:String;
  tabnumber:integer;
  inputman:string;
  workdate:Tdate;
  systemyear:string;
  systemmonth:string;
  strq:string;
  strqYm:string;
  canmodify_LD:boolean;   //是否有权限更改以前日期数据

implementation

uses  data,  Uabout, Upjgl, U_wrsp,
  U_yrsp, U_xtgl, U_look, U_ldinput, U_bc, U_yp, U_reg, U_regx, U_fm, U_yl,
  U_total, U_chuzu, U_preface, Usplash, U_print, U_baobiao20_1, U_cwy,
  U_jhsj, U_sjkh, U_cl, U_clsjlc1, U_checkdata, U_baobiao_cx, U_am, U_sphd,
   U_phtj,u_datatrans, U_jsyhde;

{$R *.DFM}





procedure ShowMbx(SText:string);
begin
//  frm_am:=Tfrm_am.Create(self);
  frm_am.show;
  frm_am.Memo1.Clear ;
  frm_am.Memo1 .Lines .Add (Stext);
end;





procedure createbaobiao01(Syear:string);
begin
 with frmmain do
 begin
 query1.sql.Add(' create table baobiao01_'+Syear);
 query1.sql.add ('  ( ');
 query1.sql.add(' rq         datetime     NULL,  ');
 query1.sql.add(' xlm        char(10)     NULL,  ');
 query1.sql.add(' hx         smallint     NULL,  ');
 query1.sql.add(' pj100      int          NULL,  ');
 query1.sql.add(' pj150      int          NULL,  ');
 query1.sql.add(' pj200      int          NULL,  ');
 query1.sql.add(' pj250      int          NULL,  ');
 query1.sql.add(' pj300      int          NULL,  ');
 query1.sql.add(' pj350      int          NULL,  ');
 query1.sql.add(' pj400      int          NULL,  ');
 query1.sql.add(' drxszs     int          NULL,  ');
 query1.sql.add(' drxszs_cx1 int          NULL,  ');
 query1.sql.add(' drxszs_cx2 int          NULL,  ');
 query1.sql.add(' drxszs_cx3 int          NULL,  ');
 query1.sql.add(' drxszs_cx4 int          NULL,  ');
 query1.sql.add(' drxszs_cx5 int          NULL,  ');
 query1.sql.add(' drxszs_cx6 int          NULL,  ');
 query1.sql.add(' drxszs_cx7 int          NULL,  ');
 query1.sql.add(' drxszs_cx8 int          NULL,  ');
 query1.sql.add(' drxszs_cx9 int          NULL,  ');
 query1.sql.add(' drxszs_cx10 int          NULL,  ');

 query1.sql.add(' ljxszs     int          NULL,  ');
 query1.sql.add(' ljxszs_cx1 int          NULL,  ');
 query1.sql.add(' ljxszs_cx2 int          NULL,  ');
 query1.sql.add(' ljxszs_cx3 int          NULL,  ');
 query1.sql.add(' ljxszs_cx4 int          NULL,  ');
 query1.sql.add(' ljxszs_cx5 int          NULL,  ');
 query1.sql.add(' ljxszs_cx6 int          NULL,  ');
 query1.sql.add(' ljxszs_cx7 int          NULL,  ');
 query1.sql.add(' ljxszs_cx8 int          NULL,  ');
 query1.sql.add(' ljxszs_cx9 int          NULL,  ');
 query1.sql.add(' ljxszs_cx10 int          NULL,  ');

 query1.sql.add(' qt          money       NULL,  ');
 query1.sql.add(' drsjje     money        NULL,  ');
 query1.sql.add(' drsjje_cx1 money        NULL,  ');
 query1.sql.add(' drsjje_cx2 money        NULL,  ');
 query1.sql.add(' drsjje_cx3 money        NULL,  ');
 query1.sql.add(' drsjje_cx4 money        NULL,  ');
 query1.sql.add(' drsjje_cx5 money        NULL,  ');
 query1.sql.add(' drsjje_cx6 money        NULL,  ');
 query1.sql.add(' drsjje_cx7 money        NULL,  ');
 query1.sql.add(' drsjje_cx8 money        NULL,  ');
 query1.sql.add(' drsjje_cx9 money        NULL,  ');
 query1.sql.add(' drsjje_cx10 money        NULL,  ');

 query1.sql.add(' ljsjje     money        NULL,  ');
 query1.sql.add(' ljsjje_cx1 money        NULL,   ');
 query1.sql.add(' ljsjje_cx2 money NULL, ');
 query1.sql.add(' ljsjje_cx3 money NULL,  ');
 query1.sql.add(' ljsjje_cx4 money NULL,  ');
 query1.sql.add(' ljsjje_cx5 money NULL,   ');
 query1.sql.add(' ljsjje_cx6 money NULL,  ');
 query1.sql.add(' ljsjje_cx7 money NULL,   ');
 query1.sql.add(' ljsjje_cx8 money NULL,   ');
 query1.sql.add(' ljsjje_cx9 money NULL,   ');
 query1.sql.add(' ljsjje_cx10 money NULL,   ');

 query1.sql.add(' yjh money NULL,           ');
 query1.sql.add(' rjsr money NULL,          ');
 query1.sql.add(' rcyj money NULL,          ');
 query1.sql.add(' jkrs int NULL,             ');
 query1.sql.add(' pjlj100      int  NULL,  ');
 query1.sql.add(' pjlj150      int  NULL,  ');
 query1.sql.add(' pjlj200      int  NULL,  ');
 query1.sql.add(' pjlj250      int  NULL,  ');
 query1.sql.add(' pjlj300      int  NULL,  ');
 query1.sql.add(' pjlj350      int  NULL,  ');
 query1.sql.add(' pjlj400      int  NULL  ');
 query1.sql.add(')');
// query1.sql.add('CREATE CLUSTERED   INDEX b01_index ON baobiao01_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY ');
  end;
end;

procedure createbaobiao02(Syear:string);
begin
 with frmmain do
 begin
 query1.sql.add('CREATE TABLE baobiao02_'+syear);
 query1.sql.add ('  ( ');
 query1.sql.add (' rq      datetime      NULL, ');
 query1.sql.add ('  xm char(16) NULL,');
 query1.sql.add ('  dw char(8) NULL, ');
 query1.sql.add ('  hx smallint NULL, ');
 query1.sql.add ('  gshj money NULL,    ');
 query1.sql.add ('  bus money NULL,   ');
 query1.sql.add ('  gs_11 money NULL, ');
 query1.sql.add ('  gs_21 money NULL, ');
 query1.sql.add ('  gs_31 money NULL, ');
 query1.sql.add ('  gs_41 money NULL, ');
 query1.sql.add ('  gs_51 money NULL, ');
 query1.sql.add ('  gs_61 money NULL, ');
query1.sql.add ('  gs_71 money NULL, ');
 query1.sql.add ('  gs_81 money NULL, ');

 query1.sql.add ('  ljgshj money NULL,');
 query1.sql.add ('  ljbus money NULL, ');
 query1.sql.add ('  ljgs_11 money NULL,');
 query1.sql.add ('  ljgs_21 money NULL,');
 query1.sql.add ('  ljgs_31 money NULL,');
 query1.sql.add ('  ljgs_41 money NULL,');
 query1.sql.add ('  ljgs_51 money NULL,');
 query1.sql.add ('  ljgs_61 money NULL,');
 query1.sql.add ('  ljgs_71 money NULL,');

 query1.sql.add ('  ljgs_81 money NULL ');
 query1.sql.add(')');
// query1.sql.add('CREATE CLUSTERED   INDEX b01_index ON baobiao01_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY ');
// query1.sql.add('CREATE CLUSTERED INDEX b20_index ON baobiao02_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY');
 end;
end;

procedure createbaobiao21(Syear:string);
begin
 with frmmain do
 begin
query1.sql.add('CREATE TABLE baobiao21_'+syear);
query1.sql.add ('  ( ');
query1.sql.add ('  rq datetime NULL,');
query1.sql.add ('  xm char(24) NULL,');
query1.sql.add ('  dw char(8)  NULL,');
query1.sql.add ('  hx smallint NULL,');
query1.sql.add ('  gshj money Null,');
query1.sql.add ('  bus money Null,');
query1.sql.add ('  gs_11 money NULL,');
query1.sql.add ('  gs_21 money NULL,');
query1.sql.add ('  gs_31 money NULL,');
query1.sql.add ('  gs_41 money NULL,');
query1.sql.add ('  gs_51 money NULL,');
query1.sql.add ('  gs_61 money NULL,');
query1.sql.add ('  gs_71 money NULL,');
query1.sql.add ('  gs_81 money NULL,');

query1.sql.add ('  ljgshj money Null,');
query1.sql.add ('  ljbus money Null,');
query1.sql.add ('  ljgs_11 money NULL,');
query1.sql.add ('  ljgs_21 money NULL,');
query1.sql.add ('  ljgs_31 money NULL,');
query1.sql.add ('  ljgs_41 money NULL,');
query1.sql.add ('  ljgs_51 money NULL,');
query1.sql.add ('  ljgs_61 money NULL,');
query1.sql.add ('  ljgs_71 money NULL,');
query1.sql.add ('  ljgs_81 money NULL,');

query1.sql.add ('  ifjs char(1) NULL');
query1.sql.add (')');
// query1.sql.add('CREATE CLUSTERED   INDEX b01_index ON baobiao01_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY ');
// query1.sql.add('CREATE CLUSTERED INDEX b20_index ON baobiao02_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY');
//query1.sql.add('CREATE CLUSTERED INDEX b21_index ON baobiao21_'+Syear+' (rq, hx) WITH DROP_EXISTING  ON PRIMARY');
end;
end;



procedure createbaobiao20(Syear:string);
begin
 with frmmain do
 begin
query1.sql.add('CREATE TABLE baobiao20_'+syear);
query1.sql.add ('  ( ');
query1.sql.add(' rq datetime NULL,');
query1.sql.add(' xlm char(10) NULL,');
query1.sql.add(' hx smallint NULL,');
query1.sql.add(' gzcr_cx1 int NULL,');
query1.sql.add(' gzcr_cx2 int NULL,');
query1.sql.add(' gzcr_cx3 int NULL,');
query1.sql.add(' gzcr_cx4 int NULL,');
query1.sql.add(' gzcr_cx5 int NULL,');
query1.sql.add(' gzcr_cx6 int NULL,');
query1.sql.add(' gzcr_cx7 int NULL,');
query1.sql.add(' gzcr_cx8 int NULL,');
query1.sql.add(' gzcr_cx9 int NULL,');
query1.sql.add(' gzcr_cx10 int NULL,');

query1.sql.add(' ljgzcr_cx1 int NULL,');
query1.sql.add(' ljgzcr_cx2 int NULL,');
query1.sql.add(' ljgzcr_cx3 int NULL,');
query1.sql.add(' ljgzcr_cx4 int NULL,');
query1.sql.add(' ljgzcr_cx5 int NULL,');
query1.sql.add(' ljgzcr_cx6 int NULL,');
query1.sql.add(' ljgzcr_cx7 int NULL,');
query1.sql.add(' ljgzcr_cx8 int NULL,');
query1.sql.add(' ljgzcr_cx9 int NULL,');
query1.sql.add(' ljgzcr_cx10 int NULL,');