Реферат Розробка програми АРМ "Медичні послуги"

n>

2. Програмування в Delphi 7./Сост.П.Г. Дарахвелидзе, Є.П. Марков - СПб.: БХВ-Петербург, 2003. - 784 с.

. Delphi. Швидкий старт./Сост.В.Е. Гофман, А.Д. Хомоненко - СПб.: БХВ-Петербург, 2003. - 288 с.

. Delphi 7. Навчальний курс

. Інтернет-ресурси.

Додаток А

Код програми:

Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Buttons, XPMan, StdCtrls, ExtCtrls, Grids, DBGrids; = class (TForm): TPanel;: TGroupBox;: TXPManifest;: TSpeedButton;: TButton;: TPanel;: TTimer;: TLabel;: TPanel;: TGroupBox;: TDBGrid;: TButton;: TPanel;: TPanel;: TGroupBox;: TSpeedButton;: TLabel;: TLabel;: TLabel; : TEdit;: TEdit;: TEdit;: TButton;: TButton;: TComboBox;: TButton;: TButton;: TLabel;: TLabel;: TGroupBox;: TButton;: TDBGrid;: TGroupBox;: TDBGrid;: TGroupBox;: TDBGrid ;: TPanel;: TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TButton;: TButton;: TGroupBox;: TDBGrid;: TGroupBox;: TDBGrid;: TButton;: TButton;: TButton;: TButton;: TButton;: TLabel;: TLabel;: TLabel; SpeedButton1Click (Sender: TObject); FormCreate (Sender: TObject); Button1Click (Sender: TObject); Timer1Timer (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); ComboBox1Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); SpeedButton2Click (Sender: TObject); DBGrid2CellClick (Column: TColumn); Button8Click (Sender: TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject); Button11Click (Sender: TObject); DBGrid1CellClick (Column: TColumn); DBGrid5CellClick (Column: TColumn); DBGrid6CellClick (Column: TColumn); DBGrid4CellClick (Column: TColumn); Button12Click (Sender: TObject); Button13Click (Sender: TObject); Edit2KeyPress (Sender: TObject; var Key: Char); Edit3KeyPress (Sender: TObject; var Key: Char); Edit5KeyPress (Sender: TObject; var Key: Char); Button14Click (Sender: TObject); Button15Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2;, n, l: integer;

{$ IFNDEF WIN32} MAX_PATH = 144;

{$ ENDIF}

uses Unit3, DB, CommDlg;

{$ R *. dfm} TForm2.SpeedButton1Click (Sender: TObject);

begink = 0

end; TForm2.FormCreate (Sender: TObject);

begin: = 0;: = 0;. Width: = 33;. Width: = 0;. Visible: = false;. Visible: = false;;

procedure TForm2.Button1Click (Sender: TObject);

begin (...