?? 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,');
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -