muster1.pas
来自「一个全面的客户管理系统,是用delphi开发的,界面和功能都很不错的」· PAS 代码 · 共 107 行
PAS
107 行
unit Muster;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzTabs, RzButton, DBCtrls, RzDBNav, StdCtrls, RzDBEdit,
RzCmboBx, RzDBCmbo, ComCtrls, RzDTP, RzDBDTP, RzRadChk, RzDBChk, Mask,
RzEdit, RzPanel, ExtCtrls, Grids, DBGrids, RzDBGrid;
type
TMusterForm = class(TForm)
Notebook1: TNotebook;
Linkman: TPanel;
RzGroupBox1: TRzGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label5: TLabel;
RzDBEdit1: TRzDBEdit;
RzDBEdit2: TRzDBEdit;
RzDBCheckBox1: TRzDBCheckBox;
RzDBEdit4: TRzDBEdit;
RzDBEdit5: TRzDBEdit;
RzDBEdit6: TRzDBEdit;
RzDBEdit7: TRzDBEdit;
RzDBEdit8: TRzDBEdit;
RzDBDateTimePicker1: TRzDBDateTimePicker;
RzDBComboBox1: TRzDBComboBox;
RzDBMemo1: TRzDBMemo;
RzDBNavigator1: TRzDBNavigator;
RzBitBtn1: TRzBitBtn;
Visit: TPanel;
RzGroupBox2: TRzGroupBox;
Label6: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
RzDBEdit3: TRzDBEdit;
DBComboBox1: TDBComboBox;
RzDBEdit9: TRzDBEdit;
RzDBDateTimePicker2: TRzDBDateTimePicker;
RzDBEdit10: TRzDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
RzDBDateTimeEdit1: TRzDBDateTimeEdit;
RzDBMemo2: TRzDBMemo;
RzDBNavigator2: TRzDBNavigator;
RzBitBtn2: TRzBitBtn;
RzDBEdit11: TRzDBEdit;
RzDBComboBox2: TRzDBComboBox;
Sell: TPanel;
RzGroupBox3: TRzGroupBox;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
RzDBEdit12: TRzDBEdit;
RzDBDateTimePicker3: TRzDBDateTimePicker;
RzDBEdit13: TRzDBEdit;
RzDBGrid1: TRzDBGrid;
RzDBMemo3: TRzDBMemo;
Bespoke: TPanel;
RzGroupBox4: TRzGroupBox;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
RzDBEdit14: TRzDBEdit;
RzDBEdit15: TRzDBEdit;
RzDBDateTimePicker4: TRzDBDateTimePicker;
RzDBDateTimeEdit2: TRzDBDateTimeEdit;
RzDBMemo4: TRzDBMemo;
RzDBNavigator3: TRzDBNavigator;
RzBitBtn3: TRzBitBtn;
RzDBEdit16: TRzDBEdit;
RzDBEdit17: TRzDBEdit;
RzBitBtn4: TRzBitBtn;
private
{ Private declarations }
public
{ Public declarations }
end;
var
MusterForm: TMusterForm;
implementation
uses DM;
{$R *.dfm}
end.
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?