CeleronII(流氓兔) ,東北人 幫我看看報表問題....

Question

也不会是没有USE，否则会抱没有定义的错误的，错在什么地方，能把代码贴上来给看看吗？

Answer 1

我單步調試發現報表personalrep中SQL語句中的personalform的值是nil, 其變量personalform.vstaid的值當然不可得到.但問題是怎樣在報表personalrep中可以
引用personalform窗體??? 皮之不存,毛將鷰附!!!step(1) 我在personalform中定義的全局變量,  public
    { Public declarations }
    vstaid,vstartday,vendday:string;
  end;
用語句 personalrep.Preview;調用報表personalrep.  step(2)在報表personalrep的beforprint事件中有語句ssql1:='select * from tab_chkduty  where sta_id='''+personalform.vstaid+''' ';
我寫personalform.能自動感應到變量vstaid.
(註;我已相互在Uses引用過)問題; 可在運行時報錯;Access Vialationat address...  怎麼辦???li_zhifu(东北人)說我沒有实例化.  是实例化3個變量,還实例化是報表personalrep?? 　
  

Answer 2

在工程文件中有没有
Application.CreateForm(Tpersonalform,personalform);
或是在引用personalform的地方有没有
Tpersonalform.Create(Self)

Answer 3

“personalform的值是nil, 其變量personalform.vstaid的值當然不可得到”
personalform这个FORM你需要创建

Answer 4

在工程文件中加上
Application.CreateForm(Tpersonalform,personalform);
 

Answer 5

有啊!
在MDI主窗口mainform中創建了子窗口Childform,personalform窗口是繼承的Childform的窗口.
在MDI主窗口mainform中我這樣調用生成personalform窗口;
procedure Tmainform.qige1Click(Sender: TObject);
var
  personalChild: Tpersonalform;
begin
  personalChild := Tpersonalform.Create(Application);
  personalChild.Caption :='個人出勤報表';
end;
在personalform窗口中我這樣調用報表personalrep;
         personalrep.Preview;
為什麼在personalrep中的事件beforprint中看不到personalform ?????

Answer 6

to ：　li_zhifu(东北人)　
我是在點擊MDI主窗口mainform的下拉菜單時創建的.見樓上的.
只不過personalform窗口是繼承模板Childform的窗口,我在personalform窗口中調用
報表personalrep,報表是不用創建的吧!

Answer 7

我貼上部分代碼;
(1)MDI主窗口mainform
procedure Tmainform.qige1Click(Sender: TObject);
var
  personalChild: Tpersonalform;
begin
  personalChild := Tpersonalform.Create(Application); ;-----創建
  personalChild.Caption :='個人出勤報表';end;
unit uchildform;interface
(2)子窗口childform;
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  Tchildform = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  childform: Tchildform;implementation{$R *.DFM}
end.(3)繼承子窗口personalform;
type
  Tpersonalform = class(Tchildform)
    Label1: TLabel;
    Label2: TLabel;
    Editsqlid: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Editsqlfrom: TEdit;
    Label5: TLabel;
    Editsqlto: TEdit;
    Btnsech: TButton;
    procedure BtnsechClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     vstaid,vstartday,vendday:string;
  end;
var
  personalform: Tpersonalform;
procedure Tpersonalform.BtnsechClick(Sender: TObject);
var
  personalrepins: Tpersonalrep;
  dayfrom,dayto,sqlcount:string;
  chk_flag,chk_sech:Boolean;
begin
  inherited;
        chk_flag:=True;
          ....
          ....
         vstaid:=editsqlid.Text;
         vstartday:=dayfrom;
         vendday:=dayto;
         personalrepins.Preview;-----調用      end;end;(3)報表窗口personalrep;
uses udm, upersonalform;{$R *.DFM}
procedure Tpersonalrep.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  ssql1:string;
begin
  ssql1:='select * from tab_chkduty  where sta_id='''+personalform.vstaid+''' ';------出錯

Answer 8

注意:
(1)MDI主窗口mainform
procedure Tmainform.qige1Click(Sender: TObject);
var
  personalChild: Tpersonalform;
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~在你的程序中,TPersonalForm只有一个局部的实例PersonalChild,而没有PersonalForm这个实例.
begin
  personalChild := Tpersonalform.Create(Application); ;-----創建
  personalChild.Caption :='個人出勤報表';end;

Answer 9

我的問題解決了!我換了一個角度,在報表里定義變量,在personalform窗體中把值賦給報表里定義變量的變量.
我以前是在在personalform窗體中定義變量的.
不過這個奇怪的現象你們可以思考一下,也許是報表的一個bug.personalform窗體中變量值傳不到報表personalrep中去,但反過來可以.
我項目做好後再考慮這個問題吧

Answer 10

（转载） 
  这是一个在日本BBS中人气极旺的帖子，感谢一位不知名的网友，翻译过来。  本着“奇文共欣赏，疑义相与析”的原则，在论坛转贴，给大家一个对“日本”
这个禽兽国度清醒的认识，也让大家了解一下什么是我们一厢情愿的所谓“日本人民”
和“中日友好”！★★我们要自强！！！！！！ ★★******************************
***************************
    由于日本特殊的地理位置及资源的匮乏性，决定了我国发展的终极形式是：发
动战争！我始终认为我们大和民族是世界上最优秀的民族。强烈的忧患意识与现实主义
是支撑民族不断创新与发展的精神之源，这就是勤俭智慧的大和人所独有的奋争精神。    然而，世界对我们却是这样的不公平，一些劣等民族占据着大片肥沃的土地，
却不能充分利用这些宝贵的资源，而我们拥有先进的技术、成熟的经验、团结的意志,
却只能守着贫瘠的土地望洋兴叹。潜伏的危机使我们意识到涉猎在世界这个资源有限充
满残酷争夺的现代森林里，只有保持旺盛的斗志与适当的野性才能换取民族根本的生
存，这就是地球生存的法则，这就是勤俭智慧的大和人所面临的现实。    岛国的命运最终将会覆灭于海底，匮乏的资源将会导致民族前进动力的绝断。
我们唯一的出路就是军事扩张，运用大和民族的勇武、智慧与精神去征服亚洲，征服世
界。去洗刷几十年前圣战未获成功的耻辱，用大和民族的优秀去驾驭其他民族的低劣，
从而推动整个世界的进步。这是天皇赋于日本民众的使命，这是为维护大和民族高贵的
尊严而开展的圣战！    在几十年前尝试征服世界的圣战中，我们得出两条教训：１、在未完全征服亚
洲巩固地位之前，不应招惹美国。在新的世纪里，美国应是我们实现征服亚洲的很好伙
伴与帮手，虽然在向征服世界的圣战中，他会是我们的敌人。２、灭亡象中国这样的大
国的时候，不能过于着急的一口吃掉,而应象吃生鱼片一样，一片一片的吃。    中国不同于日本，他是个多民族混合的国家，自身矛盾很多，应该利用他们内
部的分歧和差异，分裂这个国家，然后一个一个的消灭，新疆、西藏、青海、宁夏、满
州等都应成为独立自主的国家，分裂这些地区的根据就是他们独有的民族性，这就是外
界传播的中国七块论，我们具体为《分裂中国计划》，这是我们征服亚洲，灭亡中国，
进行圣战的一部分。在中国，只有东部的汉人具有阻碍我们的能力，因此，如果中国被
分裂成七个或几个国家，汉人的力量就会被大大削弱，其战略回旋的余地也会大大的缩
小，中国的灭亡，日本帝国的复兴也就为期不远了！而只要征服了中国，我们也就取得
了征服亚洲的基础，其他国家就会在汉人驯服的榜样下，臣服于我们。只有这样我们才
具有击垮美国，称雄世界的本钱。当然，中国汉人的西部开发战略对于这个问题会有一
定的阻碍，但是我们不应放弃对于分裂中国的努力！因为发动圣战是我们唯一的出路，
日本欲征服世界，须先征服亚洲，欲征服亚洲，须先征服中国，欲征服中国，须先分裂
削弱中国。    日本是一个面积狭小的岛国，军事回旋余地很小，只有发展强大的帝国舰队，
才能实现未来帝国对予圣战的需要。  《大日本帝国兴国圣战计划》之战略步骤：一、灭亡中国，征服亚洲
    欲亡中国，须先分裂削弱中国：台湾在我们的努力下已经分裂出去，下一步，
我们应该采取对台湾的绝对控制。即使这样走我们也才走完了《分裂中国计划》的第一
步，新疆、西藏、满州等还有漫长的道路，可现实没有给我们那么多的时间，日本近几
年的经济已相对饱和，发展已相对乏力，以现有的技术与水平，日本的发展已至极限。
不尽快发动圣战，没有任何资源支撑的日本经济终会陷入崩溃。但是，在尝试对中国西
部的分裂中，中国政府似乎已经觉察到了我们的计划，并制定了《中国西部开发战
略》，这个具有民族同化作用的战略，不但具有重要的经济目的，也具有重大的战略目
的，这势必封杀了我们的分裂计划，但事物总有相反的作用，因为随着汉人向西部少数
民族区域的迁移，势必会增加汉人与少数民族的接触、同化与矛盾、磨擦并存，５--
１０年之内都不会形成汉人绝对的巩固，我们正好可以利用这个机会制造挑起汉人与少
数民族之间的矛盾、磨擦，势态发展有可能会向利于我们的方向发展，因此对于中国西
部的分裂计划应坚决的执行下去。    另外在尝试分裂满州的计划中，我们却受到了来自韩国的阻力，韩国至今仍不
允许我大日本皇军一兵一卒踏上韩国之国土，这将势必阻碍我国对朝鲜半岛的控制，势
必减缓对于满蒙分裂的进程。对于韩国的抵制，可以利用外交手段缓和紧张，必要时可
以利用美国的压制，对于朝鲜可以利用美韩的军事压制。    中国是有可能干涉的，既然分裂每那么快实现，时间又不允许我们继续拖延，
我们应该适时使用大日本帝国强大的舰队，利用台海冲突或第二次朝鲜战争一举将中国
庞大实际上并不可怕的舰队摧毁，对于摧毁中国的舰队，美国人是会支持的，台湾人也
是会支持的，南中国海周边国家也是十分乐意的。如果成功，利用这次行动，我们就可
以牢牢的控制住台湾，并使之成为我们的军事基地。    由于失去了海空权，中国人对于我们压制朝鲜的反应也就显得力不从心了。而
支那人的形象会受到大大损害，支那人的精神与意志会受到极大打击，他们将会在次陷
入到大日本皇军威协的恐惧之中，？政府的威信大大降低，从此中国赖以稳定的基础被
打破，借机挑动中国各区域的民族分裂势力开展独立复国运动，则中国不战自弱。而我
们就可在满蒙重建大日本皇军关东军本部，为灭亡汉人统治下的剩余中国做准备。    还有一个问题就是不要担心经济贫困的俄罗斯会出兵干预，因为对于中国适量
的削弱，俄罗斯也是十分欢迎的。通过车臣战争，也可以看出俄罗斯虚弱的军事力量已
无力支撑一场象样的战争。    看来建立一支强大的帝国舰队与实现海外派兵合法化，是实现发动圣战的首要
条件。计划的时间安排：    1)２０００年，协助亲日分子击垮？，扶持分裂势力上台执政。中国由于惧
怕美国的恫吓，凭借其现的有武备还不敢冒然出兵收复台湾，只会适当的扩充军备等待
时机。而我们也正好借机提升军备，争取用４－５年的时间，强化帝国海军，积极谋求
海外派兵合法化，并利用经济缓和与对俄关系。    2)２００５年３月，示意台湾当政者宣布《台湾独立宣言》，挑动中国大陆
攻台，中台战争爆发。应台湾要求，日向台派遣援台军事部队，进占尖阁列岛（钓鱼
岛），进驻台湾，协助台军作战；日美台联合舰队突袭中国舰队，向中国宣战。１０
月，摧毁中国舰队，夺取海空权，俄罗斯通过联合国出面调停，中国与三方签署停战协
定。    3)２００５年１２月,日军应台湾要求取得驻台合法权，把持亲日当权政府。    4)２００６年１月，策反中国民族分裂分子，开展独立复国运动，中国陷入
内乱。    5)２００７年３月，台湾发表政府声明：台湾自愿并入日本版图，日本政府
表示不予接纳，但允诺对其实施应有的保护，日台建立军事同盟关系。    6)２００７年５月－８月，日美台韩联军收复北韩，宣布朝鲜统一。    7)２００８年２月，台军反攻大陆，日台联军出兵满蒙。２００９年５月，
中国军队退守关内。日军占领满蒙，重建日本关东军本部，构筑侵华根本。    8)２０１２－２０１５年，发动对中国大陆的全面战争，灭亡中国，构筑雄
霸亚洲之基础。
二、巩固亚洲地位，称雄世界    日本在灭亡中国后，理应成为亚洲当之无愧的领袖，要用优秀的大和民族精神
去震慑劣等民族的精神，要消灭他们的语言、习俗及奢糜的生活方式即劣等民族的劣根
性，要消灭这些民族的存在，消灭他们的一切,转而学习我们的一切，要在他们的土地
上用我们的方式培育出支那日本人、台湾日本人与朝鲜日本人，要使整个亚洲不但统一
成一个国家，而且还要统一成一个民族，那就是大和民族。实现这个目标要靠大和民族
强大的合力、超人的智慧、无畏的精神，从内心去彻底征服每个亚洲人的心志，要让他
们认同并崇尚我们的精神，景仰我们的奋进，并彻底臣服于大日本帝国的脚下，让他们
无限的忠诚于我们。只有这样，我们才能牢牢的掌握住亚洲，进而征服整个世界！    征服世界，仅仅依靠日本帝国的力量还是远远不够的，还需要一些得力的帮手
与伙伴。美国是同我们瓜分世界的最好伙伴，利用美国压制欧洲，协助德国日尔曼法西
斯政党重新掌握政权，再利用德国日尔曼人征服欧洲。事实证明在上一次为了圣战而签
署的盟约中，允许意大利人的加入对于日本的圣战是一个错误的决
定，罗马帝国的后裔已经丧失了先辈奋争的精神，成为无知的劣等民族，就象我们先辈
崇尚的汉唐人，现在却退化成为低劣的汉人，他们摆脱不了被统治的命运。最后，待我
们牢牢控制了亚洲，德国与美国控制了欧洲，而后合力从两面将独联体一举灭亡。    整个过程大致需要３０－５０年。
    所有的中国人：在日本人预谋下一个无耻计划的时候，就让我们现在就开始做
吧：    同胞们!    如果您是个爱国者，请转交10个以上您的朋友、同事、......！！！***敬请各位把这篇文章贴到你所知道的任何地方，    被日本人杀死的4000万同胞将感谢你！！
    无赖的老年日本人根本就不承认侵略过中国！
    无知的年轻日本人根本就不知道侵略过中国！
    无耻的军国主义者说当慰安妇在当时是一种荣耀……    我们在自我安慰的寄希望于日本人的良知而他们却认为我们这些可怜的第三世
界在编造故事以敲诈他们的钱财……    如果你是一个不太喜欢狂热，冒进的温和派，那么我个人认为你应该所做的是：    把不买日货这个原则默默地记在心里，我们没有必要非得用示威或游行来反对
日本可耻的行为我们应在心里默默的抗议日本对我们犯下的错误和他们对这些错误无耻
的抵赖我们只需要在购买商品的时候更多的忽视一下日货，能不买日货就不要去买。相
信自己，只要我们团结起来，人人都能做到这一点，就会使日本在经济上受到打击就会
使他们不敢再轻视我们的力量，如果你认为自己很狂热，那么可以先看看下面的数据：
在世界各地，几乎90%的华人用的是：“日本车”，“日本电器”！！    我统计过：如果世界各地的所有华人停止购买日货，日本每年将损失“100
0-1400”亿美元的外汇收入！！！“外汇收入”是任何一个国家的源泉和动力！
！它和国民经济的关系是“一带动八”，或者说：“损失一份外贸收入，这个国家就要
损失八份的国内经济收入！”。换算一下：1000----1400亿美元的外汇受
入“等价于”一兆美元----日本经济的总产值的五分之一(1/5)=20%！！
！所以，如果世界各地华人同心协力，不用动刀动枪，就可制日本于死地!!而且是永
久的死地！！！    我们应该学习尤太人----曾经集体拒买一家德国工厂的产品，最后导致这
家公司的彻底破产！！起因就是因为这个公司的总裁说了一些所谓“理解希特勒”的话
！！现在德国人对犹太人特别好！！您知道为什么吗？
    原因有二：一个是怕----因为尤太人特别团结；第二个是尤太人的
狠----尤太人从来没有放弃过对“纳粹分子”的追杀-----只要在这个地球上
发现有任何藏匿的“纳粹分子”，他们就一定就会“抓－－绑
架”，如果实在无法得手，那就“杀”！    看看我们中国吧？！“对刽子手的仁慈，无疑就是自杀！”    开始行动吧同胞们：?****?0年过去了，还要等吗？！开始行动吧！！
    从我开始做起!
    从我家开始做起!!
    从我的朋友开始做起!!!
    从我身边的各个组织开始做起!!!!    只要大家共同努力：最后，我想最多10年，全世界所有的华人都会做到！既
使能做到一半(50%)。对日
本的打击也是致命的!!组织一个全球性的“拒买日货复仇组织”！请在各地“串连串
连”，好吗？！同胞们，开始行动吧！可以印些传单，让大家意识“拒买日货”的重要
性！“拒买日货”首先要防止被“日本狗”误导有些所谓的“爱国人士”---(其时
是被日本秘密收买的哈巴狗，目地是挑拨分离我们本来就不团结的中华大众)，经常提
出：拒买日货是不可能做到的，原因是几乎所有的轿车，电器里，多少都有日本的零
件。所以还是打住吧！“拒买日货就到此为止”是什么用意？！那是因为日本害怕看到
中国大众组织起来，进而进行有效的“抵制日货”运动？！故而在这个五十多年来首次
完全有可能组织其一个有效的全球性“拒
买日货”运动时，他们便会迫不极待地跳出来叫“停”！“拒买日货”，并非像他们所
说的哪样----“因为这个计算机里有一个或一些日本零件，我就不买；这电视里有
几个日本造的电子器件，我就不要”。“拒买日货”的口号实际上是要求全球中国人，
在有选择可能的情况下，尽量不买日本造的货物，如汽车，电冰箱，洗衣机，电视，音
响等等！  五十多年来，华人一直记恨于日本，但可笑的是却没有一个有力的“拒买日货
“组织！！究其原因,就是因为中国有太多的日本狗从中挑拨分离我们本来就不团结的
中华大众!中国同胞们：清醒过来吧！千万不要再被这种人玩耍了！！！  “拒买日货”的意义：  “拒买日货”的意义是巨大的！她能让我们不动一刀一枪就打击了日本，同时又
加快了中国经济的发展！她能让我们扼制日本，进而让中国立于不败之地！她能让我们
的子孙免遭我们的前几代祖先和我们现代中国人所遭受的痛苦！！她最终也能让这个几
百年来一直顽固不化，一再屠杀掠夺中国人民的丑陋民族遭受到它应有的惩罚！！！你
以为这容易做到吗？绝对不是！这需要我们大家的共同努力,才能让全体中国人慢慢
地，逐渐地意识到，然后才能真实地做到！！  不必要的担心：    1.中日友好根本就不存在！过去没有，现在没有，将来也不会有！    2.现在中日两国贸易总额每年达600亿美元。是不是因为我们全球中华大
众对日货的抵制，中国就会受到损失?这是不会的！原因是:a.日本出口到中国的是
高级奢侈品---我们中华大众可以拒绝；b.中国出口到日本的是普通生活必须
品----日本人很难抵制，他们其实是在享受着我们廉价的产品！    3.另外，从中国的长远利益来看，减少对日本产品的过份依赖，对中国的国
家安全是非常重要的，比如日本参加美国的NMD，其目的就是与中国为敌！！！*
**敬请    各位把这篇文章贴到你所知道的任何地方。死难的4000万同胞将感谢你！！
    抵制日货！请翻贴！转贴！ :em25: