delphi 窗体间共享变量

来源：百度知道编辑：UC知道时间：2024/05/23 20:02:26

我做的是一个医院系统
想要实现在门诊排班模块中单击某个医生的工号就显示他的具体信息
代码如下
unit OutArra;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, Buttons, ComCtrls, StdCtrls, ExtCtrls;

type
TOutArraForm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
DateTimePicker1: TDateTimePicker;
SpeedButton1: TSpeedButton;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;

var
OutArraForm: TOutArraForm;

implemen

单步跟一下，看看在哪句出错
错误提示是说“不能将Variant类型转换为String类型”
就你贴出来的代码估计是
Edit1.Text:=ADOQuery1.FieldValues['工号'];
Edit2.Text:=ADOQuery1.FieldValues['姓名'];
...
这样的代码有问题
改成Edit1.Text:=ADOQuery1.FieldByName('工号').AsString;
试试

如何进行delphi变量的窗体间传送 VB中如何将变量在不同的窗体间共享 Delphi窗体互相调用 DELPHI关闭子窗体 Delphi的窗体调用 delphi 的窗体问题 delphi 窗体最小化问题 delphi窗体问题 C#.net 两个窗体间如何传递变量？请问在VB中两个窗体间如何传送变量