【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了main_yggl_zhglform.pas提供大家参考,希望对大家有所帮助!
unit main_yggl_zhglform;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ExtCtrls, ToolWin, ImgList, Menus, Db, DBTables, Grids, DBGrids,
StdCtrls, DBCGrids, DBCtrls, Mask, Buttons, mxDB, mxtables, mxstore,
mxgrid, mxpivsrc;
type
Tmain_yggl_zhgl = class(TForm)
ImageList1: TImageList;
ImageList2: TImageList;
Table2: TTable;
ImageList3: TImageList;
Table1: TTable;
Panel2: TPanel;
Table3: TTable;
DataSource1: TDataSource;
mys: TTable;
Timer1: TTimer;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabControl1: TTabControl;
TreeView1: TTreeView;
ListView1: TListView;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
BitBtn6: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
DBCtrlGrid1: TDBCtrlGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBComboBox1: TDBComboBox;
DBEdit9: TDBEdit;
DBEdit6: TDBEdit;
DBMemo1: TDBMemo;
DBEdit11: TDBEdit;
DBEdit10: TDBEdit;
DBComboBox4: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox2: TDBComboBox;
DBImage1: TDBImage;
Panel1: TPanel;
DecisionPivot1: TDecisionPivot;
DecisionGrid1: TDecisionGrid;
Panel5: TPanel;
BitBtn1: TBitBtn;
BitBtn5: TBitBtn;
DecisionCube1: TDecisionCube;
DecisionQuery1: TDecisionQuery;
DecisionSource1: TDecisionSource;
Bevel1: TBevel;
Bevel2: TBevel;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
Image1: TImage;
BitBtn13: TBitBtn;
Panel6: TPanel;
Label13: TLabel;
Panel4: TPanel;
Panel15: TPanel;
firstbutton: TButton;
nextbutton: TButton;
prebutton: TButton;
lastbutton: TButton;
Button7: TButton;
BitBtn3: TBitBtn;
BitBtn12: TBitBtn;
BitBtn14: TBitBtn;
BitBtn16: TBitBtn;
BitBtn17: TBitBtn;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
BitBtn2: TBitBtn;
procedure TabControl1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure firstbuttonClick(Sender: TObject);
procedure prebuttonClick(Sender: TObject);
procedure nextbuttonClick(Sender: TObject);
procedure lastbuttonClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure BitBtn18Click(Sender: TObject);
procedure BitBtn19Click(Sender: TObject);
procedure BitBtn16Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
main_yggl_zhgl: Tmain_yggl_zhgl;
implementation
uses findrecord, main_yggl_zhgl_zgkpform,
printform, main_yggl_tjcxform, m