База данных "Почтовое отделение"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
.Text=0000) then.Show;(Здравствуйте Администратор.);.Caption:=Вы в базе под логином администратор;.ToolButton9.Enabled:=False;.GroupBox5.Visible:=False;(Неверный логин или пароль);
: if (edit1.Text=Приемщик) and (edit2.Text=0000) then.Show;.Caption:=Вы в базе под логином Приемщик;(Здравствуйте Приемщик.);.ToolButton9.Enabled:=False;.GroupBox5.Visible:=True;(Неверный логин или пароль);
: if (edit1.Text=Менеджер)and (edit2.Text=0000) then.Show;.Caption:=Вы в базе под логином Менеджер;(Здравствуйте Менеджер.);.GroupBox5.Visible:=False;.ToolButton9.Enabled:=True;
end(Вы указали неверный логин или пароль);
=0then.Caption:=+Items[ItemIndex];.Text:=Items[ItemIndex];;;TForm1.FormActivate(Sender:TObject);.Caption:=DateTimeToStr(Now);">end;;TForm1.BitBtn2Click(Sender: TObject);.Close;;TForm1.ListBox1Click(Sender: TObject);TCustomListBox(Sender) doItemIndex >= 0 then.Caption:=Вход в базу данных почта как +Items[ItemIndex];.Text := Items[ItemIndex];;;TForm1.FormActivate(Sender: TObject);.Caption := DateTimeToStr(Now);
end;.
Листинг программного кода для формы БД.
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, ComCtrls, StdCtrls, ExtCtrls, DBCtrls,, ToolWin, Buttons,OleServer, EXCEL2000, ComObj, ExcelXP, Menus,, jpeg;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TDBGrid;: TPanel;: TGroupBox;: TEdit;: TComboBox;: TRadioButton;: TRadioButton;: TGroupBox;: TComboBox;: TEdit;: TDataSource;: TADOConnection;: TADOTable;: TADOTable;: TDataSource;: TPanel;: TDBGrid;: TGroupBox;: TComboBox;: TEdit;: TRadioButton;: TRadioButton;: TMainMenu;: TMenuItem;: TGroupBox;: TMenuItem;: TMenuItem;: TComboBox;: TEdit;: TDBGrid;: TADOTable;: TDataSource;: TADOQuery;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TADOQuery;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TGroupBox;: TComboBox;: TEdit;: TRadioButton;: TRadioButton;: TGroupBox;: TComboBox;: TEdit;: TADOQuery;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TColorDialog;: TProgressBar;: TImage;: TToolBar;: TStatusBar;: TToolButton;: TTabSheet;: TADOTable;: TADOQuery;: TDataSource;: TDBGrid;: TBitBtn;: TGroupBox;: TComboBox;: TEdit;: TRadioButton;: TRadioButton;: TGroupBox;: TComboBox;: TEdit;: TImageList;ToolButton1Click(Sender: TObject);ToolButton3Click(Sender: TObject);ToolButton5Click(Sender: TObject);ToolButton7Click(Sender: TObject);ToolButton9Click(Sender: TObject);ToolButton11Click(Sender: TObject);Edit1Change(Sender: TObject);Edit2Change(Sender: TObject);Edit3Change(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);Edit4Change(Sender: TObject);PageControl1Change(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn5Click(Sender: TObject);BitBtn6Click(Sender: TObject);BitBtn7Click(Sender: TObject);Edit5Change(Sender: TObject);Edit6Change(Sender: TObject);N9Click(Sender: TObject);N14Click(Sender: TObject);N10Click(Sender: TObject);N13Click(Sender: TObject);Ds1Click(Sender: TObject);BitBtn4Click(Sender: TObject);BitBtn8Click(Sender: TObject);Edit7Change(Sender: TObject);Edit8Change(Sender: TObject);ToolButton12Click(Sender: TObject);Excel1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;: variant;:integer;:integer;,k,j:integer;Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}TForm2.ToolButton1Click(Sender: TObject);pageControl1.ActivePageIndex of
: ADOTable1.First;
: ADOTable2.First;
: ADOTable3.First;
: ADOTable4.First;;;TForm2.ToolButton3Click(Sender: TObject);pageControl1.ActivePageIndex of
: ADOTable1.Prior;
: ADOTable2.Prior;
: ADOTable3.Prior;
: ADOTable4.Prior;;;TForm2.ToolButton5Click(Sender: TObject);pageControl1.ActivePageIndex of
: ADOTable1.Next;
: ADOTable2.Next;
: ADOTable3.Next;
: ADOTable4.Next;;;TForm2.ToolButton7Click(Sender: TObject);pageControl1.ActivePageIndex of
: ADOTable1.Last;
: ADOTable2.Last;
: ADOTable3.Last;
: ADOTable4.Last;;;TForm2.ToolButton9Click(Sender: TObject);pageControl1.ActivePageIndex of
:AdoTable1.Insert;
:ADOTable2.Insert;
:ADOTable3.insert;
:begin.Insert;.Show;;;;TForm2.ToolButton11Click(Sender: TObject);pageControl1.ActivePageIndex of
: ADOTable1.Edit;
: ADOTable2.Edit;
: ADOTable3.Edit;
: ADOTable4.Edit;;;TForm2.ToolButton12Click(Sender: TObject);pageControl1.ActivePageIndex of
: ADOTable1.Delete;
: ADOTable2.Delete;
: ADOTable3.Delete;
0)and(Length(ComboBox1.Text)>0))then.Filtered:=false;RadioButton1.Checkedthen.Filter:=Combobox1.Text+LIKE+#39+Edit1.Text+%+#39.Filter:=Combobox1.Text+LIKE+#39+%+Edit1.Text+%+#39;.Filtered:=true;ADOTable1.Filtered:=false;;TForm2.Edit2Change(Sender:TObject);Length(Edit2.Text)>0then.Filtered:=false;.Filter:=Combobox2.Text+=+#39+Edit2.Text+#39;.Filtered:=true;ADOTable1.Filtered:=false;;TForm2.Edit3Change(Sender:TObject);((Length(Edit3.Text)>0)and(Length(ComboBox3.Text)>0))then.Filtered:=false;RadioButton3.Checkedthen.Filter:=Combobox3.Text+LIKE+#39+Edit3.Text+%+#39.Filter:=Combobox3.Text+LIKE+#39+%+Edit3.Text+%+#39;.Filtered:=true;ADOTable2.Filtered:=false;;TForm2.Edit4Change(Sender:TObject);Length(Edit4.Text)>0then.Filtered:=False;.Filter:=ComboBox4.Text+=+#39+Edit4.Text+#39;.Filtered:=True;ADOTable2.Filtered:=False;;">: ADOTable4.Delete;;;TForm2.Edit1Change(Sender: TObject);((Length(Edit1.Text) > 0)and(Length(ComboBox1.Text) > 0)) then.Filtered:=false;RadioButton1.Checked then.Filter:=Combobox1.Text + LIKE + #39 + Edit1.Text + % + #39.Filter:=Combobox1.Text + LIKE + #39+ % + Edit1.Text + % + #39;.Filtered:=true;ADOTable1.Filtered:=false;;TForm2.Edit2Change(Sender: TObject);Length(Edit2.Text) > 0 then.Filtered:=false;.Filter:=Combobox2.Text + = + #39 + Edit2.Text + #39;.Filtered:=true;ADOTable1.Filtered:=false;;TForm2.Edit3Change(Sender: TObject);((Length(Edit3.Text) > 0)and(Length(ComboBox3.Text) > 0)) then.Filtered:=false;RadioButton3.Checked then.Filter:=Combobox3.Text + LIKE + #39 + Edit3.Text + %+ #39.Filter:=Combobox3.Text + LIKE + #39+ % + Edit3.Text + % + #39;.Filtered:=true;ADOTable2.Filtered:=false;;TForm2.Edit4Change(Sender: TObject);Length(Edit4.Text) > 0 then.Filtered:=False;.Filter:=ComboBox4.Text + = + #39 + Edit4.Text + #39;.Filtered:=True;ADOTable2.Filtered:=False;;
//Меню в верху. TForm2.N10Click(Sender: TObject);PageControl1.ActivePageIndex of
: if ColorDialog1.Execute then DBGrid2.Color:=ColorDialog1.Color;
: if ColorDialog1.Execute then DBGrid1.Color:=ColorDialog1.Color;
: if ColorDialog1.Execute then DBGrid3.Color:=ColorDialog1.Color;;;TForm2.N13Click(Sender: TObject);.Show;;TForm2.N14Click(Sender: TObject);.Close;;TForm2.N3Click(Sender: TObject);PageControl1.ActivePageIndex of
: ADOTable1.First;
: ADOTable2.First;
: ADOTable3.First;
: ADOTable4.First;;;TForm2.N4Click(Sender: TObject);PageControl1.ActivePageIndex of
: ADOTable1.Prior;
: ADOTable2.Prior;
: ADOTable3.Prior;
: ADOTable4.Prior;;;TForm2.N5Click(Sender: TObject);PageControl1.ActivePageIndex of
: ADOTable1.Next;
: ADOTable2.Next;
: ADOTable3.Next;
: ADOTable4.Next;;;TForm2.N6Click(Sender: TObject);PageControl1.ActivePageIndex of
: ADOTable1.Last;
: ADOTable2.Last;
: ADOTable3.Last;
: ADOTable4.Last;;;TForm2.N9Click(Sender: TObject);.Show;;TForm2.PageControl1Change(Sender: TObject);pageControl1.ActivePageIndex of
: ADOTable1.Next;
: ADOTable2.Next;;PageControl1.ActivePageIndex of
: begin.Panels[0].Text:=Система управления базой;.Panels[1].Text:=;;
: begin.Active:=False;.SQL.Clear;.SQL.ADD (SELECT * FROM виды_корреспонденции Where код_кор);.Active:=True;.Panels[0].Text: =Количество записей +IntToStr(ADOQuery1. RecordCount);.Panels[1].Text:=;;
: begin.Active:=False;.SQL.Clear;.SQL.ADD(SELECT * FROM корреспонденция Where уч_номер);.Active:=True;.Panels[0].Text:=Количество записе